Top 10k strings from Utility Compilation 80 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
7 ;"Routine in ROM";
6 JAN DREXLER
6 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
5 )))))))))))
4 yrlf`[VQLHD@=9630-+(&$"
4 ???????? ?
4 ;"* *";
4 "Otwet=";z
4
4
3 {b`wstawxte`b{
3 y$+n$(i),x$+n$(i)
3 s x$+n$(i)
3 a$(i,j)="0"
3 Transparen
3 THIS ROUTINE IS NON-RELOCATABLE
3 A(N,M));A(N,M):
3 ;"********************************";
3 8 CASSETTE PORT TEST
3 ))))))))))))
3 "and enter the":
3 "23658",O:
3 navmite klawi{u
3
2 {bRA`klawi{a`R
2 y+N+F+^+Vp#q#r#s
2 xwvmkZYXWVTNK7%
2 x4=t4/n(i)
2 x3=t3/n(i)
2 x2=t2/n(i)
2 x1=t1/n(i)
2 v(i)=s(i)/m(i)
2 uws44,4pyv
2 to be replaced.
2 t4=t4+x(j,i)*x(j,i)*x(j,i)*x(j,i)
2 t3=t3+x(j,i)*x(j,i)*x(j,i)
2 t2=t2+x(j,i)*x(j,i)
2 t1=t1+x(j,i)
2 q$=" Vawe
2 ns=ns+p(i)/2
2 n$="Verify":
2 n$="Load":
2 ls=ls+p(i)/2
2 e=d(i)/(b(i)*b(i))-3
2 boot````C`m
2 b;"INSTRUCTIONS"
2 b(i)=x2-x1*x1
2 a2=c(i)/(b(i)^(3
2 a(i)=(n(i)/(n(i)-1
2 a$(i,j)="1"
2 [ENTER]-No/Yes
2 ZX SPECTRUM MACHINE CODE TOOLKIT
2 UP-SCROLL",T
2 Text end =
2 TR-dos file copier
2 TEST ALL THE KEYS
2 Scroll righ
2 Scroll dow
2 S U P E R C O D E
2 Routine Starts at ";A
2 ROUTINE NO:
2 RAM/ROM TESTS
2 PROGRQM2,D
2 POCMOTP KAPTOTEK
2 PCSPIYIXHLDEBCAFSZ H VNC
2 Miscellaneou
2 Matrica S vwrojdena!
2 MONS3M2 Debugger
2 M;"- ";B$(M);": ";A$(N,Y
2 Input FILTER name
2 I;" "
2 I+" "
2 Error catalog!
2 E ";x(j,i)
2 Bright grid
2 BCCCCCCCCCCCCCCCCCCF
2 A,B,C$,DUR:
2 @@T@@{bRA`klawi{a`R@b
2 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2 ;suma/gry;
2 ;"Subtract the":
2 ;"RAZMERNOST["
2 ;"RAZMERNOST[ MATRICW"
2 ;"******************************";
2 ;"(+/-)";o(i)
2 ;" sectors"
2 ;" DO SLEDUY^E{ VSTRE}I! "
2 ;" ";b$;"! ";
2 ;" "
2 8 STOP TEST
2 8 SOUND TEST
2 5atbatbefgatbsttefgatt4t
2 2ROM2,202,2
2 23635+256*
2 ,," 3A
2 *x2*x1*x1-3
2 *x1*x1*x1*x1
2 *s(i)/m(i))^2
2 *o(i)/m(i)
2 *"m";E;"SUPERCODE3"
2 )!!!!!!!!!)))
2 (#"/.)*+,-
2 #^#V#N#F#n&
2 #"a\"c\"e\!
2 "x(";j;",";i;")=";x(j,i)
2 "numbers 5-3=2":
2 "answer before":
2 "S\"K\"U\#"Y\
2 "Name too long!!":
2 "Must have a name!!":
2 "FileCopy"
2 "Enter the Name (max 10 letters) ";n$
2 "23791",F:
2 "23659",F:
2 "23659",D:
2 "################################"
2 "#";N;": ";
2 " studioC5619
2 " studioC"
2 " If you choose
2 omnr5c12c12h ic12uvwh ic1 5
2 o][r5dy3dy3jkldy3112jkld 5
2 [islo ravno "+
2 Start-up of file
2 OVERPRINT
2 New name of file
2 Lapot'Soft 1989
2 Hisoft 1983,4
2 Disk drive of
2 Catalog or File?
2 = 79 * 16 = 1264 sektora * 256 = 316 Kba^t 80 dorojek
2 <5% n= ";
2 Continue ?
2 Copy files
2 File
2
2
1 ~~~~~~~~~~
1 ~EXAMPLE`C`
1 |krannogo fajla obraz,
1 |R`DISK``B
1 |@@VV||VV@@|f|ff|@@``|ff|@@ffvnnv@@|f
1 |@@@XX@XX@@@XX@XX
1 {{b`````RA
1 {sec.r/wrC`
1 {doctor``Cpuy@A
1 {bsohraneniqb{
1 {bpredstawlqet`utilitub{
1 {bgSYSTEM`TRACK`DUMPg,b{
1 {bei``dorovkib{
1 {bdisk`s`kopib{
1 {b`wa{`disk`b{z
1 {b`disk`dlq`b{z
1 {b``wwedite``b{
1 {b```fajla```b
1 {b````imq````b{
1 {b```````RA`navmite``klawi{u`R
1 {b`````` `` b{
1 {bRAwosstanowlenieR
1 {bRAsohranenieR
1 {bRA klawi{a R
1 {bPENCRAFT``SOFTWAREb{
1 { TEST PASSED LOADING OK FAILED Is this correct? < Y/N > Did you hear the tone? < Y/N > Was the tone received? < Y/N >
1 znaki i obliczenia
1 z(a)=c(k,a):
1 z(a)=c(a,k):
1 z(a)=a(k,a):
1 z(a)=a(a,k):
1 yt bqsk wyth
1 ysecread`C`
1 ys runumburud(uxsupt for qrgumunts lyku 2.8 or N+3,whysh qru hygh- lyghtud.If qrg
1 y@AE{R/WR.```B
1 y1%z!Oz"vy
1 y,x;n$(i);:
1 y$+n$(i),x$+n$(i)#
1 xLPENtx``Cq
1 xDOCTOR``B
1 x;":";y;"=";
1 x;"-";y;"=";
1 x;"+";y;"=";
1 x;"*";y;"=";
1 x(k))^i-(x(k)<0
1 x(k))^(i+j)-(x(k)<0
1 x(k))^(i+j)
1 wosstanowleniq`pri`por~e.```
1 wKL@^ITX SLOWO
1 wKL@^ITX MAG
1 w+w+w+<w+w
1 w$w$w$w%%%,
1 w$w$w$w%%%
1 w$=x$+n$(i):
1 w$="WAIT A MINUTE"
1 w$(z)=" ":
1 w$(a)=" ":
1 vwxod iz cikla
1 vrom0Part1,rut0anyone0who00attempts0to
1 vffff@@Fn~VFF@@fff~ff@@|ffff|@@~fffff@@>ff>vf@@|ff|``@@|f``f|@@~XXXXX@@fff>
1 variables"'" (3) Numeric Arrays"'" (4)
1 vAMI`````BQTKTU
1 v@@P|P|T|P@cf
1 u,zs"Jt#`u$
1 to0a0new0address.To00 sorrest,run this routine revore loading.It resets0System vars000to0pre-paging0values,&0ensures programs vrom sassette0
1 to0 237550and not 23813.2
1 to the bottom area of
1 to restore the menu.
1 to bu losqtud":
1 to be available,
1 this rout- ine within(using
1 the following:-"'"
1 the 2- byte equivalent(see #101)of the address of the
1 that is to be transformed,into ";:
1 tekstowyj redaktor
1 tbiortm``B>
1 tARTISTmqC
1 t;a+l;".";
1 t$="00000000"
1 t$=" MAGIQ ~ISEL I BUKV":
1 t$,q$,d$,f$:
1 t$(k)="1":
1 szacxovnica
1 suma=suma+pkt+1000
1 such lines."
1 strms=23574
1 store=(a$=bsb
1 statements won't work if
1 statement at
1 start in mem."
1 stala popylqrno^ diskovaq operacionnaq sistema
1 spisok komand:
1 sohranenie
1 soderva}ijsq w MAGIC-fajle.
1 so-ordynqtus of thu";'" top luft hqnd sornur of thu box
1 smasterq`Bk
1 sistemnye```dorovki`` disket
1 sets like the SCIFI in #79).
1 sec Files:
1 scrolls when re
1 save=(a$="s"
1 s=s-c(h,pj)*z(pj)
1 s=c(h,n1):
1 s. Also see #82,#90,#100,#103h"
1 s,by combining
1 s x$+n$(i)#
1 s which are stored in RAM(ie,UDGs or alternative
1 s when logically possible.Also see #64 #90,#100,#103h."
1 s the no: of
1 s the length ov0the0RASIC0program. 0Memory 0used0ry0variarles0is0ignored.000Also0see #103,#111.2;
1 s the address of the first
1 s RAMTOP to its original value, zeroes the entire memory & resets System Variables,UDGs & stack."
1 s & statements in a prog. Restart SUPERCODE with
1 rusfont CP
1 rus C0u
1 rozvizanie gotove
1 routine,& let x=no: after LD,de.Use #115 with a higher start address & x =no: of bytes.The file should
1 restore=(a$=brb
1 r=r*x(i)+z(j)
1 r=c(h,pj)/s
1 qyyq``benq`l`ksbz
1 qyyq``benq`l`ks``RA
1 qyyq`L.KLUEV`FOR``PENCRAFT`SOFTWARE,`ST.PETERBURGP
1 qwertasdfg
1 quotes to save space.Also see #64,#82 & #100."
1 qruutylysud.)":
1 qcrs.ptrhC@
1 q$=" Vawe
1 q RQMTOP bulowZ &
1 prog autostart, enter 1
1 pqBdFCP`````Bv@v@ACgFCP`````CL
1 polxzowatelq na`specialxnoj
1 part2 of your program with the header of another prog, by manipulating Record/Pause keys on taperec.Call this routine in part1,& immediately after,call routine115.Part20will0now0auto-
1 pGb``````Cpu@A
1 pE^ATX KOPII
1 pE^(g)/pW(t)/(j)?
1 pEREM(k)/pE^(z)/w(j)?
1 p,q if bytes) Use the same
1 p(i);" ";:
1 out these Instructions.
1 opros klawiatury
1 only. Incidentally,to
1 on lines 22 & 23."
1 on all 24 lines of the
1 ointro```C@
1 of the same
1 of BASIC containing a prespecified sequence of
1 of a given
1 ocrs.ptr`C@
1 o ? (Y/N)
1 ns=ns-p(i)/2
1 ns;" files selected"
1 novaq igra
1 no: whose 2-byte equivalent was
1 najti! nOW? y
1 na whod summiru63ego usilitelq-1astotnogo modulqtora nainwertore DD
1 nDJCRACK`BIAyAB
1 n$;" OK"'"HIT ANY KEY TO CONTINUE."
1 n$(i)=b$(3
1 n$(i)=b$(18
1 n$(i)=" ":
1 n to prevent the scroll? prompt corrupting the
1 ls=ls-p(i)/2
1 losovanie liczb
1 look=(a$="l"
1 ldiskad``C
1 lENTA 0
1 kursor, vpiswvanie liczb
1 kspecmacrC@
1 kspecmacqC@d@@@
1 kotoraq pozwolqet ""wyrezatx""
1 kotoraq `pozwolqet`sohranqtx
1 konec testa 1
1 katalog
1 kalxkulqt.
1 kURSOR W
1 kDISKAD``BF
1 k(5) <-DECREASE INCREASE-> (8)
1 k PRESS ENTER WHEN READY
1 k ENTER CODE:
1 k
1 jz@P@@`````````@@SYS`r```@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]u
1 it to a different address, >23900 so it does not overlap with the System variables."'" (c)To
1 is to be execu- ted.Enter
1 is possible:use
1 instruction. At the end,
1 ing the two parts."
1 in working order.
1 in non-deletab-le lines:the listing vanishes 5)Autostart by using
1 in a BASIC program by another
1 i*@&DISASM``B
1 i sohranitx na diske w wide
1 hfilecopyCX
1 hSPECmMACByC^CD
1 h$(n);" ";:
1 give the correct values.
1 ghHDMEGAmBASB`A`AB@Gmega`basC
1 f|@@~XXXXX@@fffff|@@ffff|X@@FFVV~,@@f|XX|f@@fff|XX@@~
1 f|@@|`|ff|@@~f
1 f|@@ffnnn~@@|f
1 formiru6tsq iz sinhrosmesi s wyhoda inwertora-amplitudnogoselektora na T
1 for another
1 ff|@@dhpxlf@@`````~@@Fn~VFF@@ffvnff@@|ffff|@@|ff|``@@|ff~l>@@|ff|lf@@|`|
1 exists, overwrite?
1 existing line no:,the next valid line no: is used.Cal -culated GOTOs etc are highlit.":
1 etc. Then
1 erustasr`C@
1 ed/reset Spectrum. (5)Press
1 ed,use routine119 before each
1 ed,the BASIC will autorun,& will start the
1 ed into0a0Spestrum0with0000shadow0ROM paged0in,as the0prog0will
1 ed came from tape/Mdrve,
1 each part immediately before saving the next one:this ensures that there will be no delay between
1 e60
1 e0000 F3 DI
1 e!Oz"vy!Hy
1 e!5z"\y!.y
1 e ""CODE""
1 e ""BASIC""
1 drustasq`C
1 dolvny imetx minimalxnu6 dlinu,velatelxno zablokirowatxmikroshemy kondensatorami 0.
1 dla Disasemblacji:
1 diskete```dlq```posledu`}ego
1 disk`errors
1 dcucode`Ch
1 d, yt must bu rulosqtud by thu sqmunumbur of bytus."'"(2)It ys possyblu to rulosqtu # 22,23,71&76 too,but only to qdd-russus whysh qru multyplus of 256 qwqy from thu orygynql qdd-russus.Prosuud qs follows: Gut thu pqgu of thu routynu,& pruss Q to quyt.Thu orygynql qddruss ys Q - sqy you wqnt to relosate yt to A+256*ZZ,whuru ZZ ys q +/-yntugur.";
1 d into 62866 & 62867 respectively. The 4 columns are addr,contents in dec+hex &
1 d into 57125/26 ) :if not you will return to the next statement.
1 d in 60952(lo) & 60953(hi):initially 9495."
1 d in 60878(lo) & 60879(hi):initially 9495.For the error
1 cornort Ce
1 copy all) ";
1 co- ordinates ov the0top-levt0hand0 sorner0ov0the0rox.2
1 c(k,pj)=c(k,pj)-c(k,ph)*r:
1 c(k,l)=c(m,n)
1 c(i1,n2)=r
1 c(i1,j1)=r
1 c$=q$(c-127
1 by Andrew MOA
1 but will jump to the
1 bsa=bsa/p:
1 bsa=bsa+r*r
1 boot````B?@?@AC
1 bolxwie bukv$
1 bgb`````RA
1 bez oceny koncovei
1 beraser``C
1 bdoct.s``CH
1 bdmd`r```C|
1 bERASER``B
1 bDOCT.t.sB
1 b@AI{DOCTORa`B
1 b;"Use s saved Character"
1 b;"Use existing Graphic Characters A,B,C,D E,F,G,H I,J,K,L "
1 b;"There is no existing character"
1 b;"Select your option"
1 b;"Saving ";n$
1 b;"Save the Character"
1 b;"Refer to Instructions"
1 b;"Press any key to continue":
1 b;"New Character";
1 b;"INITIALISING"
1 b;"Display the Character"
1 b;"Display Numbers"
1 b;"CALCULATING"
1 b;" THE END ";
1 b;" Loading ";n$
1 b;" ";n$;" loaded "
1 b;" Start the tape "
1 b;" BIG GRAPHICS GENERATOR "
1 at0any position0on the0ssreen:0ie, to00vind the0
1 at any position on the screen: ie, to find the CODE of the character printed
1 at ANY position X,Y on the
1 as well as resets
1 artr````C@w@
1 artq````C@
1 are set up as UDGs. To return to usual UDGs,
1 admd`q```C@[@AA
1 address from which
1 able). Use N to exit.
1 abcde CX
1 aDmD`COPYBI
1 a=a-chans+1
1 a$(a)=a$(a+1
1 a higher RAMTOP first."
1 a headerless file, disassemble its
1 a # ";er;" Ha
1 `wosstanowlenie
1 `spisok`komandz`
1 `sohranenie````
1 `katalog```` ``
1 `c(&$"f 8642f.,*jbd0hbd08a
1 `b`b`b`b`.`b`b`b`b`b`b`b`bg
1 ````````b{
1 ````````````a
1 ``````````````````````````
1 ``````````````
1 ```````` ``
1 ````` ``` `
1 `S`T`D``q.pr`
1 `RA`komandu`R
1 `PENCRAFT``SOFTWARE`
1 `Ga``````Cpu@A
1 `GA``````Cpu
1 `Fade`away
1 __________";
1 ________"'
1 ^bank C
1 ^#V#N#F#{=
1 ^#V#N#F#*x
1 ][_)('&!@#$%QWE<>~|\{}
1 \mdrow C
1 \PR.BANK B
1 \M drow B
1 \KSPRESSIVNOE
1 \##N#F#"]\"
1 [}\r#s#N#F#
1 [ry*vy++++F+N
1 [Xy*\y++++F+N
1 [DgFILECOPYB`a`ab
1 [@Rdiag````C@}@AA
1 Zscreen$ C0u
1 Zokcode C0u
1 Zcc.code`Cpb@ddA[RUSSIAN`B
1 ZX/Alphaco
1 ZX INTERFACE1 MUST BE ATTACHED
1 ZX INTERFACE 1 ATTACHED
1 Z=A+G-F*(N=
1 Z;" /"'" ";Z+1
1 Z2=2350
1 Z2=231Entur:-009990
1 Z2=2290000
1 Z$=" 0":
1 Z yf from Mysrodryvu).If qnqddruss >23800 ys to bu
1 YRAWN.:eo sVATX :ed sFORMIR:ek
1 YDCU`raqqB
1 Y(I)=A(I,M)
1 Xvf@@PhP*Dz@@HXP@@@@@
1 Xp~@@x````x@@|f
1 Xpp@@|f|ff|@@|ff>
1 Xp`@@|fnvf|@@XxXXX~@@|f
1 XP=X(IMAX,J)
1 XDXYDPteletestC@
1 XCOPYmsV`B
1 X-3,0 The program will work provided you do not
1 X+1,0. To do this to other lines, first find their address X using routine 88, then
1 X(K,J)=X(K,J)/DIV
1 X(IMAX,J)=X(K,J)
1 X(I,J)=X(I,J)-AM*X(K,J)
1 X = Y =
1 X CTPOKAX MEH
1 X PE
1 Written by James Hutchby
1 Wo```````C@k
1 With FF entered, reads -
1 With 00 entered, reads -
1 Whole scree
1 Wash textur
1 WD}ISmChessC
1 WARWHAM````B
1 WAIT A MINUTE
1 W.POLE:Ex pR.POLE:ex uST.TAB:ee cWETA :ei
1 W P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`W
1 View scree
1 Version numbe
1 Version 1.5 C
1 Verify= OK
1 VENNWX VEKTOROV SIMMETRI-}ESKO{ MATRICW (METODOM QKOBI) ";
1 VARIABLES END :
1 Use existing chrs
1 Use SYMBOL SHIFT/BREAK to repeat
1 Use CAPS SHIFT/BREAK to proceed
1 Uplata```C
1 URS-LW:K5 kURS-PR:K8 kURS-WR:K7 kURS-WN:K6
1 UMP PAGE#/
1 UIT QND EXQMINE LINE 1210
1 UDG CHARACTER ? !!
1 UCO`r.pu`B
1 U$="123456789ABCD":
1 Typ sec.
1 Twhams```CpuX[
1 Twhamr```Cpu
1 Treble widt
1 Treble heigh
1 Transfer OK"'"
1 Thys0ys Lynu0#";Z
1 This is Line #";Z
1 This Spectrum has faulty memory.
1 This Spectrum has K of memory
1 The Recording was fine!
1 Textured fil
1 Tape error!
1 Table used:
1 Table size:
1 TUHSwhamq```Cpu
1 TOWN-SCROLL",T
1 TOP0RIGHT-SCROLL",S
1 TOP/MID0LEFT-SCR",S
1 TOP/MID RIGHT-SCR",S
1 TOP LEFT-SCROLL",S
1 TO"''''"HA
1 TO SEE HOW THIS WAS DONE, EXIT & EXAMINE LINES 9278 TO 9286
1 TO SEE HOW THIS WQS DONE,";
1 TLWMIYfmwtzl
1 THERE0HQS0REEN0Q0RECORDING0MRROR
1 THE MICRODRIVE VERSION
1 TESTS COMPLETED
1 TEST PROGRAM
1 TE.SIM:K0 sTE.STR:K9 sTE.KON:e9 sTE.WSE:eq
1 TE HOMEP "'Y
1 T$=T$+"2":
1 T$=T$+"1":
1 T$=M$+"9":
1 T$=M$+"8":
1 T$=M$+"7":
1 T$=M$+"6":
1 T$=M$+"5":
1 T$=M$+"4":
1 T$=M$+"3":
1 T$=M$+"10":
1 T$="D.BASER+"
1 T$=" \ K S P R E S S I V N O E":
1 T$=" I M Q I F A M I L I Q":
1 T$=" P L E A S E W A I T":
1 T$=" N A S L E D U E M O E":
1 T$=" I N T I M N O E":
1 T$=" V A W V | B O R :":
1 T$=" V O P R O S ":
1 T$=" V I T O G E :":
1 T$=" T H E E N D":
1 T$=" G O S P O D A !":
1 T$=" T E S T
1 T - Transpose
1 Szukanie bajtu =
1 Szukac ? Disasembler od ?
1 Stqrt qddruss:
1 Start tape..
1 Start tape,then press any key.
1 Start address:
1 Spase (1-255)2
1 Source disk information:
1 Single densit
1 Select paper colour
1 Select ink colour
1 Select fill texture
1 Select border colour
1 Select
1 ScompilerC
1 Save the Chr
1 Save program
1 Save file ..
1 SUPERSOFT SYSTEMS
1 SUM-VADERS
1 SUBMARIN
1 STUDIO BI
1 STAWKA:E{ tEKST<<:Sj >>tEKST:Su >tEKST<:er
1 START ADDRESS :
1 SPLATA`VsBG}G}>
1 SPECTRUM:S-save,L-load
1 SPECTRUM+ KEYBOARD TEST
1 SPECTRUM 16/48K KEYBOARD TEST
1 SOFTEK 'FP'
1 SINT=OMEGA/
1 SINCLAIR ZX SPECTRUM
1 SINCLAIR RESEARCH Ltd.
1 SIMULQTOR",I
1 SIMULQTOR",G
1 SEARCH MAGIC-FILE
1 SCOMPILERB
1 SAVE*""m"";1;
1 SAVE'";C$(
1 SAVE : disk
1 S(I,Q)=INT1*SINT+MU*COST
1 S(I,P)=INT1*COST-MU*SINT
1 S wyth Inturvql I
1 S - save text to disk
1 Rusordyng OK
1 Routine Length is ";B;" bytes
1 Routine Ends at ";A+B-E;
1 Routine Ends at ";A+B-1
1 Right justif
1 Reset variables
1 Remove gri
1 Relokacja =
1 Re-scale windo
1 RUSFONTSBj
1 ROUTINE IN ROM
1 ROUTINE #";N;"
1 ROUTINE ";C$'" IS NOW CALLED
1 ROM test - PASSED
1 ROK B
1 RIPPLE-SCROLL RIGHT
1 RIGHT-SCROLL",S
1 RIGHT-SCROLL",33
1 REPLQCE",D
1 RENUMBER",D
1 RENAME FILES
1 RELOCQTION OF SUPERCODE ROUTINES
1 REINPUT FILES ":
1 REFLECT Y-QXIS",E
1 REFLECT X-QXIS2,E
1 RANDOMIZE USR63950
1 RANDOMIZE USR 3190
1 RANDOMIZE USR ";A
1 RAM TEST FAILED
1 RAM SIZE: 48K"''"PROGRAM LOADED FROM CASSETTE
1 R1LIST:e3 wN1LIST:e4 tABUL. :K1 wST.kup:S{
1 R"E\*S\###"
1 QR@cDCU`r.pqB
1 QNY OTHER KEY
1 QDIAGNOSTBE
1 QDDRESS",D
1 Q,E;"This routine converts hex no:s to their decimal equivalents. It clears the screen & prompts 'H:' - now ENTER the hex no:. Only the last 4 hex digits will be converted. The routine auto- repeats. Enter 'Q' to quit, &
1 Q,E;"This routine
1 Q,E;"Call this routine at the start of your program, say by having as
1 Q,D;" The Spectrum doesn't check if there is enough space free in its memory before
1 Q(K)=H(I)/G(M1)
1 Q(I);" * X**";I-1
1 Q$;Q$;Q$;Q$:
1 Pruss ENTER to Expand thu Wholu Program
1 Press the < M > key
1 Press PLAY now
1 Please wait-only 50 seconds left
1 Pass 2 errors:
1 Part20ry0other0means0will srash0the somputer.20
1 PROGk```C@}
1 PROGRAM - PODZIELONY !
1 PRINTING2,E
1 PRINTER, ADRES WOZWR
1 PRINT;: RANDOMISE USR 60222
1 PQEYART`STUDB
1 POLDIVr BY
1 POKE NUMBERS
1 POCZ. DANYCH ?
1 POBKA -4":
1 POBEPKA 3A
1 PGd``````Cpu@A
1 PGUNSHIP`B
1 PAMM B KAPTOTEKE ";n:
1 P@@`````````@@````````@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 P=P+B*Y(K)
1 P,D;" To break into autostart progs, (a)Instead of
1 P,D;" (a)To check whether a ZX Inter- face1 is connected,see whether0 or not an error is produced if an instruction like
1 P$=" 0":
1 P PE3EPB
1 Overwrite (Y/N)?
1 Output disk full !
1 One Del file
1 Old Character
1 OWTOR :Ek sTER.BL:El pOISK :E~ rAZMER :ec
1 OVERPRINT",E
1 OTHOCTb n/216d. n=";q:
1 OPBGBASICmvtB
1 ONTUR :E} mARKER :Em rEGISTR:K2 {RIFT :em
1 ON /OFF checkerboard on the
1 OMEGA=COST*COST
1 OBRABOTKA IMENI I FAMI-LII. !SI!;!SF!;!SO! - SUMMA MAGI~ESKIH ~ISEL
1 O: ";U$'''
1 O,E;"In order to make the FIRST line of your program non- deletable
1 O HOMEPA?";N1
1 O H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`O
1 Note: Addressing errors may
1 Normal widt
1 Normal heigh
1 No. STATEMENTS :
1 No. OF EXTRA BYTES::}\_:~\W:
1 No. LINES :
1 No. Bytus:
1 No Table space!
1 No Macro Space
1 Nmgcode C
1 NUMBERSrB>
1 NSUPER1 BI
1 NSTRUKCIQ
1 NOWY POCZATEK ZA NISKO RAMT
1 NOWY KONIEC ZA DUZY P-RAMT
1 NOWY ADRES ?
1 NORM2=NORM1*RHO/N
1 NON-RELOCATABLE ... use L
1 NOK&NODrB^
1 NO: ROUTINE
1 NO MORE OCCURRENCES
1 NNNNNNNNNN
1 NAUKA```C@@@[
1 NASLEDUEMOE
1 N2=N-N1*256
1 N$,C$,C$,DUR:
1 Mirror Group Newspapers 1983"
1 Merge file ..
1 Merge current
1 Md Cx
1 Macro buffer?
1 MU=SINT*SINT
1 MU=(V1-V3)/2
1 MONITOR MI
1 MODE TEXT.
1 MODE SCALE INCREASE (I), DECREASE (D) OR EXIT (E).
1 MMG B
1 MID/LOW0LEFT-SCR",S
1 MID/LOW RIGHT-SCR",S
1 MID RIGHT-SCROLL",S
1 MID LEFT-SCROLL",S
1 MICRODRIVE
1 MEMORY QVQILQBLEN
1 MDis 48k Be
1 MATEMATrBU
1 MAGIC-NAME INTO TR-DOS SYS VARS
1 M+A;"- ";C$(M);
1 M+A,"- ";C$(M);
1 M - Memory
1 M - HISOFT debugger
1 Lungth of Program Only:!
1 Lpascal``C
1 Loader PV'1991
1 Load file ..
1 Load current
1 Lmntr C
1 Left to righ
1 Left justif
1 Lato z radiem
1 Last windo
1 LOW0LEFT-SCROLL",S
1 LOW-LT:K3 sLOW-PR:K4 pRED-PR:Sc iDTI-ST:Et
1 LOW RIGHT-SCROLL",S
1 LLISP````Bf@f@A@Rlisp````C
1 LKJHPOIUY0987612345QWERTASDFG
1 LINE NO:NOW RENUMBER PROGRAM
1 LEFT-SCROLL",S
1 LEFT-SCROLL",33
1 L);"'CODE ";A;",";B
1 L - load text from disk
1 KqC@@@KqC@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TCOPY```B
1 Konec rabotw
1 Kcompl C
1 KONIEC DANYCH?
1 KO CTPOK B KA
1 KO 3HAKOMECT
1 KMONITOR BL
1 KL.WYR:Eo pERENOS:Ec wYR.RAZ:e2 wKL@^-$:e{
1 KILL0CONDENSER",D
1 KCOMPL B
1 Joystick subroutine
1 JAKOBIr BU
1 J;"----> ";
1 J,H;"Routine Length is ";B;" bytes
1 J$=" Player 2":
1 J$=" Player 1":
1 IpGB``````Cpu
1 Invert windo
1 Instrukciq
1 Instructions
1 Insert command
1 Insert SAVE : disk
1 Insert LOAD : disk
1 Includes tests of the following:
1 Include buffer?
1 If thys ys OK, pruss untur.If ytys not, untur thu nuw nqmu (notuthqt only thu fyrst tun
1 IXCC``````B
1 IWIN-1987CX
1 IS LOADING
1 INTERW. |KZEMP
1 INT1=SINT*COST
1 INT1=S(I,P)
1 INT1=INT1+2
1 INT1=A(I,P)
1 INSTRUCTIONS ON THE TRANSFER OF SUPERCODE TO THE ZX-MICRODRIVE
1 INDEX PAGE ";(C-E)/
1 INDEX - PAGE ";(Z-1
1 I;"Luss Syg Moru Syg":
1 I;" ":
1 I;" "
1 I+") "
1 Hvlpentx``B
1 HTEP -6" :
1 HO ";C-Z;" PE
1 HCLPASCAL``B
1 H,D;" The ZX Microdrive spends most of its time trying to locate a file - actual loading is swift. 2 ways of saving files so that they can be accessed faster are (a)
1 H(IJ)=H(IJ)-Q(K)*G(MJ)
1 H(I);" * X**";I-1
1 H$=" "+H$:
1 H - HEX calculations
1 Gt``````Cpuyab@QGu``````CpuyabBSGScp````C@
1 Gs``````Cpu@[[E
1 Grey-scale dum
1 GGGGGGGGGGGGGGGGGGGGGG
1 GGGGCCCCCCCCCCCCCCCCCCCGGGGG
1 GGGGBCCCCCCCCCCCCCCCCCCGGGGG
1 GENStmuqB{@{@A
1 GENSms``BL@L@AAHgenss```C@}sghBHGENSmt``B{@{@A
1 GEGGGEEEBBE
1 GEEBBBEGGGF
1 GD``````Cpu
1 GC``````Cpu
1 GCCCCCCCCCCCCCCCCCCG
1 G,D;"1)Make line1 1
1 G @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G
1 Freddy A Vachha & Vic B Rumsey
1 Found file:
1 Font edito
1 Flip vertica
1 Flip horizonta
1 First Bytu:
1 Fill Graphics
1 File not start
1 File exists Delete(Y/N)?
1 File Absent
1 FROM LINE NO:TO LINE NO:AFTER LINE NO:NOW RENUMBER PROGRAM
1 FFFFFFFFFFFFFFFFFFFFFFF
1 FFFFFFFFFFFFFFFFF
1 FFFFFFFFFFFFFFF
1 F.VACHHA BSc
1 Executes:
1 Erase file ...
1 Enter Routine No:
1 Enter Index Page No:
1 Edit textur
1 E^ATX :Ez pAR.PE^:Ep iZM.kup:Ee kATALOG:Es
1 EXCHQNGE",E
1 EUSTD`q.prB
1 ET ";
1 ERROR CODE: 2;N$:
1 ERROR CODE: ";N$:
1 ERASING FILES
1 ENLARGE REM
1 END ADDRESS :
1 EHENIE "
1 EGSct````Cpu@ppAHGScugd``C`
1 EFGHJMQRSUWXYZ
1 EFFECTS",I
1 EEEEEEEEEEEEEEEE
1 EEEEEEEEEEE
1 ECTBO 3HAKOMECT B CTPOKE
1 ECTBO O
1 E: ";(C$(N))'A(Z,N):
1 E: ";(B$(N))'A$(Z,Y
1 E","S-CTPE
1 E","N-KAPT.
1 E","C-KOCM
1 E - scrEen (6;7;cs+6;cs+7;C;c)
1 E - exit to BASIC
1 E -2"
1 Drukowac do ?
1 DrMASTERmFB
1 Double widt
1 Double heigh
1 Double densit
1 Dmonss```C
1 Display Numbers
1 Display Character
1 Disked by PAPIR & 1991
1 Disasembler=
1 Destination disk free space
1 Delete selected
1 Define windo
1 DOWN-SCROLL",T
1 DMONSmt``Bz@z@A
1 DIV=A(K,K)
1 DISK IS PACKING NOW
1 DISK 1-4 :
1 DET=A(K,K)*DET
1 DEHDMONSms``Bz@z@A
1 DECDamis````C@
1 DBASERr B-
1 D,D;Q$;Q$;Q$;Q$:
1 D([3[Z*S\+
1 D$(N)=A$(N,Y
1 D - enter TR DOS
1 Cut, clear & past
1 Cut & paste windo
1 Corrected by Lebedev
1 Copyyng sopyus ys FORBIDDEN
1 Copyright O.C.P. 1985
1 Copyright (C) HISOFT 1983,4
1 Clear windo
1 Clear whole font
1 Clear scree
1 Clear & re-scal
1 Check SAVE : disk?
1 Change colou
1 Cboot````B?@?@A
1 Catalogue
1 Catalog full!
1 Capture fon
1 CTPOB: ";Z:
1 CTPOB"''':
1 CTPOB"''"7- 3A
1 CTPOB"''"6- CO
1 CTPOB"''"5- K
1 CTPOB"''"4- CO
1 CTPOB"''"(
1 CTPOB COCTAB
1 CTPE BAM H
1 CTPA: ";Z'"CBO
1 CTPA: ";N;" / ";Z'''
1 CTPA ";M;" ";Z'"K
1 CTP No. ";N''':
1 CTP No. ";N'''
1 CORNORT Bc
1 COPIING FILES
1 COLOUR/FLASH TEST
1 CLEAR PAPER(P), INK(I), BOTH(B) SCREEN(S), ALL(A), OR NONE(N) !
1 CKA -8":
1 CKA -9"
1 CK HOMEP ";h$:
1 CK -7":
1 CGE``````Cpu
1 CDHATFmCOPY`B
1 CCCCCCCCCCCCCCCCCCG
1 CBTEST````B}Sj@T
1 CBIG-GEN B
1 C/D/E/I/N/P/Q/R/S/X
1 C$(P);":";
1 C$(N);":";
1 C$(M);": ";
1 C - Compare
1 Bw b\JSIH-STR.
1 BpE^ATATX
1 Bamiq````C@[@AABDamir````Ce{
1 Bad Memory!
1 BTAPER```BDE*@
1 BORDER ?!
1 BLOCK COPY
1 BINOM B:
1 BETA Lines
1 BDCLOCK```B
1 BCAkchanZ```CA[d@ADksysMOA``B
1 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
1 BBBBBBBBBBBBBBBBBBBBBBBBBBBBB
1 B=B*((X0-X(J))/(X(K)-X(J)))
1 B$(P);": ";A$(N,Y
1 B$(N);": ";A$(Z,Y
1 B$(M);": ";A$(N,Y
1 B - Checksum
1 Auto-start Linu No:
1 Atfcopy``C@
1 AtcopymtrC
1 Arrays"'" (5) FOR..NEXT control variables"'" Also see #70.";
1 Array Namu:
1 April 1985
1 All rights reserved
1 A`wwedite`R
1 A^ALO :Ef kONEC :Eq pRED.LI:Eg sL.LIST:Ew
1 A^.STR:e5 kON.STR:e8 lIST-WR:e7 lIST-WN:e6
1 ATb?(0-HET)"
1 APPROCr B6
1 AP=A(IMAX,J)
1 ANY OTHER KEY TO START
1 ANY OTHER KEY TO RESTART
1 ANY OTHER KEY TO GO ON
1 ANY OTHER KEY
1 ALXKUL:es tAJMER :e~ wYHOD :Sj >b\JSIK:Ei
1 ALGEBRArBn3n34
1 AGRUZ.:Ed sOHRAN.:Ey sTERETX:Eu fORMAT :Ea
1 ADVANCED DISK SERVICE ver 2.0
1 ADRES POCZ. ?
1 ADRES KONCA ?
1 ACONES``B|@|@A
1 ABEarussian`C@
1 ABEZcc.scrn`Cv
1 AATCOPYmTRBo@_@A
1 A/C/D/E/I/J/L/M/N/P/Q/R/S/T
1 A(Z,N));A(Z,N):
1 A(Q,Q)=V1*MU+V3*OMEGA+2
1 A(Q,P)=(V1-V3)*INT1+V2*(OMEGA-MU)
1 A(Q,I)=A(I,Q)
1 A(P,Q)=A(Q,P)
1 A(P,Q)<THR
1 A(P,P)=V1*OMEGA+V3*MU-2
1 A(P,I)=A(I,P)
1 A(N,P));A(N,P):
1 A(N,M)=A(K,M)
1 A(N,J)=A(N,J)/A(N,N)
1 A(K,M)=A(K,M)-A(K,I)*Y(I)
1 A(K,J)=A(K,J)/DIV
1 A(J,I)=A(I,J)
1 A(IMAX,J)=A(K,J)
1 A(I,Q)=INT1*SINT+MU*COST
1 A(I,P)=INT1*COST-MU*SINT
1 A(I,J)=A(I,J)-AM*A(K,J)
1 A(I,J)=A(I,J)-A(I,N)*A(N,J)
1 A$(C,D*A):
1 A - HISOFT assembler
1 A - Add & Sub
1 A 'A') KO
1 A 'A'"''"
1 A -
1 @}SECAM```C@
1 @|fff~f@@|f|ff|@@|f``f|@@|ffff|@@~`x``~@@~`|```@@|f`nf|@@fff~ff@@~XXXX~@@
1 @ukp PREFIKS
1 @tmaster``C
1 @oot````C`m
1 @[[Bscrs.q```C@
1 @TMOABOOTB
1 @KOMP POLB
1 @Gc``````Cpu@A
1 @FISWUAPR[OLDXT]ZJKYEGMC^NQH\VB_`fiswuapr{oldxt}zjkyegmc~nqh|vb!
1 @EGp``````C
1 @CONE```Br@r@A
1 @Adizsq```C`m
1 @AEksysMOA``C
1 @ABLbasic`vtCpu
1 @A@Atcopy```Cb
1 @@pXXXXp@@@hP|Ph@@@HH>HH@@@@@@XXH@@@@>@@@@@@@@XX@@@
1 @@[@@{b```b{z
1 @@X|ZXXX@@@@@@@~~@fk{{kf@@>fff~f@@~`|ff|@@fffff~
1 @@T@@{b`wstawxte`b{
1 @@T@@{b`o{ibka``b{
1 @@S@@{b`nyj``disk`b{
1 @@S@@{b`ispor~enm`
1 @@S@@{b``kodzb{h
1 @@S@@{b``TRmDOS```
1 @@GScq````Cpu
1 @@AC@@@@C@@@A@@
1 @@@@@@@@@XXXX@X@@vR@@@@@@v
1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 @@@@@@@@@@@@@@
1 @@@@>@>@@@@pX
1 @)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
1 @))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
1 @ BAJT
1 ?TEST bioBR[
1 >1 copies of the file on the same cartridge:for x copies,do
1 =TR help C
1 ==============
1 =0; 2)
1 =09 - to je, hto i p. 4, no s zapis$u zagolovka na disk; 6)
1 =07 - htenie kataloga s diska; A soderjit nomer kanala, po kotoromy v<s<laetsq pehat$ kataloga; 4)
1 =06 - iz byfera po adresy
1 =05 - osy&estvlqetsq htenie s diska: v byfer po adresy
1 =($=(.=(2=(6=(@=(H
1 <test allCP
1 <cccccccJCUe
1 ;STATIST B
1 ;N;"- ";B$(N):
1 ;N+A;"- ";C$(N):
1 ;D$'" Q-
1 ;C$;" CODE ";A;",";B:
1 ;"~PROGRAMS BANK~ V3.03"
1 ;"}TO V SLEDUY^I{ RAZ";
1 ;"zu na glaz. Navernoe, Vam dos-";
1 ;"znaete [ego hotite,no proqvlq-";
1 ;"zame[atx i cenitx drugih. I";
1 ;"vesxma v$rajen$ idealisti[es-";
1 ;"top left hand corner of the box"
1 ;"togda, kogda ostanetesx s gla-"
1 ;"to start"
1 ;"to play ROBOT TABLES now?"
1 ;"the game ends":
1 ;"te stalkivatx sebq s okrujay-";
1 ;"tato[no trudno na&ti partnera."
1 ;"strastn$& [elovek. \goisti[n$";
1 ;"srednee za ";
1 ;"sna[ala. Raznica mejdu lybovxy";
1 ;"rezko porvatx i na[atx vse";
1 ;"r$e V$ prekrasno znaete. \ner-";
1 ;"printer on ? (Y or N)"
1 ;"prinimatx otvetstvenn$e rewe-";
1 ;"presents"
1 ;"predstawlqet utilitu";
1 ;"power until":
1 ;"novwe dannwe (d/n)? ":
1 ;"niq,ona - kly[ k Vawim materi-";
1 ;"net fajla ";:
1 ;"mojno polnee realizov$vatxsq,";
1 ;"li V$ ? Net, skoree noaoborot,";
1 ;"kie [ert$, predannostx, umenie";
1 ;"jams your fire":
1 ;"instvo.V$ [asto b$vaete nejn$m";
1 ;"i drujbo& dlq Vas ne vsegda";
1 ;"i vern$m, odnako ne boitesx";
1 ;"he lands"
1 ;"gi[n$& i [istolyBiv$&,V$ lybi-";
1 ;"files ";:
1 ;"ete vsy glubinu [uvstv tolxko";
1 ;"drugim. Rabota ne v$z$vaet u";
1 ;"approksimaciq.";
1 ;"alxn$m dostijeniqm. V lybvi V$";
1 ;"__________
1 ;"]to - Vawe bezuslovnoe dosto-";
1 ;"[etko v$rajena."
1 ;"Zna#enie p doljno bwt_ celwm "'"i bwt_ bol_he nulq ":
1 ;"Zadat_ novuy stepen_ (d/n)?":
1 ;"You may now NEW the BASIC loader"''" Please refer to manual"
1 ;"You can scroll attributes too by using this routine & then No: 37 - 40, after defining an appropriate box & setting the Attr Value to 63."
1 ;"Wy~itanie":
1 ;"WRAP-AROUND POKE ";A+16
1 ;"WRAP-AROUND POKE ";
1 ;"WRAP AROUND POKE ";A+13
1 ;"WIDGIT SOFTWARE"
1 ;"Vlastx? Denxgi? - slova,koto-";
1 ;"Vas straha, ona pozvolqet kak";
1 ;"VVEDITE }ISLO UZLOV"
1 ;"VVEDITE X "
1 ;"VVEDITE STEPEN[ POLINOMA A(X)"
1 ;"VVEDITE N"
1 ;"VVEDITE A(1,1) "
1 ;"VVEDITE 'R' DLQ PEREZAPUSKA"
1 ;"V1.1:48K RAM"
1 ;"V$ - dovolxno voinstvenn$& i";
1 ;"V SREDNEM ";
1 ;"Umnovenie":
1 ;"UPRAVLENIE";
1 ;"To say the 2 byte equivalent of X is L(Less)/M(More) sig: bytes means that 256 * M + L = X . This routine permits instant conversion of a number from 0 - 65535 to its 2-byte equivalent. To convert X into its 2-byte equivalent, enter RANDOMISE X.
1 ;"To save this routine, use";
1 ;"To renumber lines starting with S using an interval I, first POKE 59580,I: POKE 59582,S-256* INT(S/256):POKE59583,INT(S/256) All GOTOs,GOSUBs,LISTs,LLISTs, RESTOREs,SAVE...LINEs & #Ns are renumbered(except for decimal/ calculated arguments & REMs).If the arg
1 ;"To help with PRINTing/PLOTting, this routine prints a BRIGHT ON /OFF checkerboard on the screen"
1 ;"To delete all lines from a to b POKE 23728, a - 256*INT(a/256) POKE 23729, INT(a/256) RANDOMISE b":
1 ;"To call this routine, use";
1 ;"This routine will switch all flashing squares to steady & vice versa. This is hence very different from routines 32/33."
1 ;"This routine will switch all bright squares to normal & vice versa. This is hence very different from routines 34/35."
1 ;"This routine waits till a key (whose CODE will be put in L)is pressed.":
1 ;"This routine undoes the effect of #98, to allow lines of a CONFUSEd program to be EDITed/ altered.":
1 ;"This routine swops all chara- cters of a given CODE with all characters of a 2nd given CODE. POKE 63903, Old CODE POKE 63905, New CODE"
1 ;"This routine simulates a power- off: ie, it not only does NEW but also CLEARs RAMTOP to its original value, clears the entire memory & resets UDGs & System VARs.":
1 ;"This routine shortens & speeds up your program by deleting all REM statements in it. Also see #41,#82,#90 & #100.":
1 ;"This routine replays what #77 recorded. It is probably best to use your cassette-recorder (MIC socket) to amplify the sound.":
1 ;"This routine replaces numbers in the program by VAL String, which saves space but reduces speed. 0 is replaced by NOT PI. Also see #41,#64,#82,#90":
1 ;"This routine prints the address of the first character in the line the cursor points to.":
1 ;"This routine prints out both the no: of lines & statements in the program. If you try this out, use GOTO 9001 to restart."
1 ;"This routine prints out a full analysis of memory contents, starting at the address whose less & more significant bytes (see #61) have been POKEd into 62866 & 62867 respectively. The 4 columns are address, contents in decimal & hex & CHR$ (where printable).":
1 ;"This routine places a random # pair in the System Variable SEED ( PEEK 23670 & 23671 )." ;
1 ;"This routine lists all (1) Numeric variables (2) String variables (3) Numeric Arrays (4) String Arrays (5) FOR..NEXT control variables"
1 ;"This routine inserts a given number into a block of memory. POKE 63796, No: of bytes POKE 63798 (less sig) & 63799 (more sig), Start Address POKE 63801, No: to be inserted"
1 ;"This routine expands programs so that there is exactly one statement per line (except in IF..THEN lines).In reply to the prompt, enter the no: of the line you want expanded, or just ENTER if you want the entire program expanded. You must use #60 after calling this routine.":
1 ;"This routine enables you to determine the
1 ;"This routine deletes hidden colour items, thus saving space Also see #64,#82 & #100":
1 ;"This routine decodes tapeheader information & prints out a full analysis (name, address, type, length & auto-start details.":
1 ;"This routine converts hex no:s to their decimal equivalents. It clears the screen & prompts 'H:' - now ENTER the hex no:. Only the last 4 hex digits will be converted. The routine auto- repeats. Enter 'Q' to quit to BASIC. When called from #92(Hex Loader) only the last 2 digits are considered.":
1 ;"This routine converts decimal no:s from 0 to 65535 to hex. It clears the screen & prompts 'D:' - now ENTER the dec no:. Error message 6 results if the no: was out of range. The rou- tine autorepeats. Enter 'Q' to quit to BASIC.":
1 ;"This routine contracts programs into the minimum no: of lines, by combining lines wherever it is logically possible. Speed is also increased. See also #41, #64, #90 & #100":
1 ;"This routine allows hex input into RAM.POKE the less/more sig (see #61) bytes of the first address to be changed into the system-var DEFADD (23563/4). POKE 65360/61 with the start address of routine #63(Hex-Dec) which must also be in memory.":
1 ;"This routine allows a block of lines to be relocated within a BASIC program.In order to shift lines 4200 till 6745 so they appear after2200 in the listing respond 4200,6745 & 2200 to the auto-prompts.The new lines will all have number 0.Now call #60 to renumber & #57 to delete the old lines. Fully errorproofed.":
1 ;"The free space F from the last Variable to RAMTOP is printed. By the way, you can use POKE 23637,203:POKE 23638,92:SAVE 'Name'CODE 23552,RAMTOP-23550-F to save your program disguised as code - it will autostart at the first line.";
1 ;"The Toolkit contains
1 ;"TO}NOST[ "
1 ;"THIS IS AN EXAMPLE OF THE NEW CHARACTER SET.POKE 23606/7 WITH THE LESS/MORE SIGNIFICANT BYTES OF THE START ADDRESS LESS 256 - CURRENTLY 0 & 223. TO RETURN TO THE NORMAL SET,POKE 23607,60.":
1 ;"Srednekvadrati#naq";
1 ;"Slovenie":
1 ;"SELECT";
1 ;"SCROLL-OFF POKE ";A+16
1 ;"SCROLL-OFF POKE ";
1 ;"SCROLL-OFF POKE ";A+13
1 ;"Routines 94 to 97 change the case (upper/lower)of strings or of the entire listing ( except strings),as specified.Note that an effective way of switching case from within programs is to POKE 23658,0 (LO) or 8(HI).":
1 ;"Routine in ROM":
1 ;"Reading disk catalog":
1 ;"RUSSKI{ ALFAVIT"
1 ;"RAS}ET XARAKTERISTI}ESKIX }ISEL I SOBSTVENNWX VEKTOROV SIMMETRI-}ESKO{ MATRICW (METODOM QKOBI) ";
1 ;"RAMTOP? ":
1 ;"RAMPTOP at 40000?(Y or N)":
1 ;"Press any key":
1 ;"Press PLAY on the tape recorder.":
1 ;"Press A for ADDING":
1 ;"Presents";
1 ;"Podojdite, nado podumat_";
1 ;"PROGRAMMA PE}ATAET M }ISEL";
1 ;"PRINT AT co-ordinates of the";
1 ;"POPROBUEM E^E RAZOK?
1 ;"POKE 64884, Overall Paper Col"
1 ;"POKE 64859, Overall Ink Colour"
1 ;"POKE 64829, Character Code POKE 64831, Box height POKE 64834, Box Width POKE 64832 & POKE 64835 with the PRINT AT co-ordinates for the top-left hand corner of the box."
1 ;"POKE 64682, Duration POKE 64693, Frequency 1 POKE 64702, Frequency 2"
1 ;"POKE 64648, Frequency POKE 64649, Span POKE 64651, Duration POKE 64670, 28(UP) or 29(DOWN)"
1 ;"POKE 63011, Pitch Decrement POKE 63012, Number of notes POKE 63014 & 63015, Pitch (less/more sig) POKE 63017 & 63018, Duration in ms (less/more sig)"
1 ;"POKE 63001 & 63002 with the Pitch value (less/more sig) POKE 63004 & 63005 with the Duration in ms (less/more sig)"
1 ;"POKE 60006, Duration (1-127) POKE 60020, Colours (0-7) POKE 60029, Line Space (1-255)
1 ;"POKE ";A+7
1 ;"POKE ";A+6
1 ;"POKE ";A+4
1 ;"POKE ";A+1
1 ;"PENCRAFT SOFTWARE";
1 ;"OT }ISLA N DO 100000000.";
1 ;"O#ki: ";
1 ;"No GOSUBs or GOTOs are changed- use #60 if you need that done. If L is the first Line to be renumbered, & I the Interval POKE 64711, I - 256*INT(I/256) POKE 64712, INT(I/256) POKE 64714, L - 256*INT(L/256) POKE 64715, INT(L/256)":
1 ;"NEVERNO. VOT KAK NADO: "
1 ;"NE KVALIFICIROVAL VAS";
1 ;"NAJMITE LYBUY KLAVIHU":
1 ;"NAIMEN[HEE OB^EE KRATNOE - NOK",,,"NAIBOL[HI{ OB^I{ DELITEL[ - NOD",
1 ;"N for INSTRUCTIONS"
1 ;"Move the cursor to the required line & then call this routine. You will be in EDIT mode, but with the cursor at the END of the line.":
1 ;"Make the following POKEs:- INK (63732) PAPER (63738) FLASH (63744) BRIGHT(63750) INVERSE(63756) OVER (63762) AT (63768,63771)CHR$ (63774)"
1 ;"MIKROKOMPYTER ""SPEKTRUM""";
1 ;"Loading Time 1 min 30 secs"
1 ;"Less Sig More Sig":
1 ;"KURSOROM"
1 ;"KO~FFICIENT A(X) ","PRI X V STEPENI "
1 ;"KORDIAL'91";
1 ;"KOM - NIBUDX E{E?":
1 ;"KOLOSSAL[NO! Dobavleno ";
1 ;"KAJDAQ"''"CIFRA"''"TOL[KO"''"RAZ!! "
1 ;"K O N E C";
1 ;"Insert Source disk then <ENTER>.":
1 ;"In order to scroll a table of data > 22 lines long without stopping, use the command POKE 23692,x where x is the no: of lines to be scrolled. To scroll 'forever' use POKE 23692,255 within the loop that generates the lines.":
1 ;"In order to print lists or text using all the 24 lines on the screen, include POKE 23659,0 before each PRINT instruction. At the end, POKE 23659,2. Use PAUSE 0 to prevent the Scroll command corrupting the screen. PRINT #0 & PRINT #1 commands are also usable.":
1 ;"In order to make the first line of your program virtually non- deletable (by making it #0)POKE 23755,0: POKE 23756,0. To do this to other lines, first find their address X using routine 88, then POKE X-4,0: POKE X-3,0 The program will work provided you do not GOTO/GOSUB/RESTORE such lines.":
1 ;"INVERSE SCRL POKE ";A+13
1 ;"INTRODUCTION":
1 ;"Having connected the EAR socket of the cassette-recorder to the Specrum, start PLAYing the tape ( Voice is best. Let Vol=max ) Enter CLEAR 32767:RANDOMISE USR 65290. All memory from 32768 to 65K is used. To replay, call routine 78.":
1 ;"HS1-";P$;" Score-";H$;" HS2-";Q$
1 ;"HS1-";P$;" Score- 0 HS2-";Q$
1 ;"HS -";Z$;" Score-";H$;" ":
1 ;"HS -";Z$;" Score- 0 ":
1 ;"HOTITE LI V| UZNATX VSE O";
1 ;"For VERIFY press";
1 ;"Follow the prompts to expand a REM statement (to accommodate code) anywhere in the program, by up to 9999 bytes":
1 ;"File ~bank~ not found":
1 ;"FULL COMPILER"
1 ;"EST[ NADEJDA,";
1 ;"Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 8000 & 9999. You may need to experiment.":
1 ;"Draw any closed figure on the screen, then PLOT a point lying INSIDE it. POKE 59293 with the Attribute value to be filled,& then call this routine
1 ;"Do you want":
1 ;"Destination disk free space":
1 ;"Delenie":
1 ;"DLQ OKON}ATEL[NO{ OCENKI"
1 ;"Corrupts the listing without affecting program execution: attempting to EDIT/alter lines could be fatal (thus useful for program protection, as are #61/ #80).":
1 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60899'. Now if an error of the type D:BREAK,H:STOP in INPUT or L:BREAK into program occurs the program will not stop but will jump to the line number whose 2 byte equivalent is POKEd into 60952(lo) & 60953(hi).This line is initially 9495.":
1 ;"Call this routine at the start of your program, say by having as LINE 1, '1 RANDOMISE USR 60826'. Now if an error occurs, (other than types 0:OK,8:END or 9:STOP) the program will not stop but will jump to the line number whose 2-byte equivalent is POKEd into 60878(lo) & 60879 (hi)...initially 9495. For the error code, PEEK 23681.":
1 ;"Bye for now.":
1 ;"By combining this routine with No:s 37-40, joint scrolling of attributes can be done. Define a suitable box, use an Attr Val of 63 & call the Attr Scroll routine(s) once for every 8 calls of this routine."
1 ;"By POKEing 23606 & 23607 with different numbers, a corrupted character set is obtained. To normalise, POKE 23606,0 : POKE 23607,60. Protect your program with this, temporarily normal- ising before each PRINTing.":
1 ;"BYE FOR NOW"
1 ;"BUDET LU}HE"
1 ;"BCTABbTE
1 ;"Add the numbers":
1 ;"Adapted by";
1 ;"A wrong answer":
1 ;"A numbered space":
1 ;"A Laser Zap routine can also be called,using
1 ;"A - MATRICA"''"B - VEKTOR KO~FFICIENTOV";
1 ;"======================="
1 ;"5 for ADULTS ONLY"
1 ;"4 for all values up to 99"
1 ;"3 for easy values up to 99"
1 ;"2 for very easy values up to 99"
1 ;"2 for 2 PLAYERS"
1 ;"1)Make line#1 a REM statement: then POKE 23755,100. You can RUN the program but not LIST it until you POKE 23755,0. 2)POKE 23636,150. To return to normal, POKE 23636,92. 3)Use CONFUSE (#98) ,call #65 & #66 to disable BREAKs, use CHR$ SCRAMBLE (#59) to scramble the listing & #68 to create non- deletable lines with
1 ;"1 for values up to 9"
1 ;"1 for 1 PLAYER"
1 ;"0 to END"
1 ;". Test ""dlq teh,kto ho[et ";
1 ;". Magiq [isel i bukv."
1 ;"----> ";
1 ;", X - 256*INT(X/256)"'" POKE ";A+2
1 ;", New Attribute Val";
1 ;", INT(X/256)":
1 ;", Box width";
1 ;", Box height"
1 ;"***********************";
1 ;"***********************"
1 ;"****** XOROHO! ******";
1 ;"****** NEPLOXO! ******";
1 ;"**** VELIKOLEPNO! ****";
1 ;"*** O}EN[ XOROHO! ***";
1 ;"* Najmite lybuy klavihu *":
1 ;"* A L G E B R A ! *";
1 ;"(x+y) = c1*x *y + ... + cN*x *y "
1 ;"'CUT OFF',";
1 ;"#imi, protivopostavlqtx sebq";
1 ;" wwedite imq ";
1 ;" to change the choice
1 ;" proqvlqet te";
1 ;" otkr$vaet";
1 ;" oprede-";
1 ;" igrw - ";
1 ;" files":
1 ;" Zna#enie n doljno bwt_ celwm
1 ;" Selected @-file N ";
1 ;" RAS}ET PROSTWX }ISEL ";
1 ;" Quick Thinking "
1 ;" PRESS 1 TO CONTINUE THE GAME "
1 ;" POPWTKI NABRAL";
1 ;" OKON}ATEL[NAQ OCENKA "
1 ;" No @-files ! Insert new disk ! ":
1 ;" MAGIC-fajla "
1 ;" Loading -Please Wait "
1 ;" Kako& test Vam nujen ?"
1 ;" CALCULATION c1...cN "
1 ;" Author this programm by I'MAX":
1 ;" A(1,1) "
1 ;" & POKE ";A+3
1 ;" "'''"HOPMA
1 ;" |krannogo ";
1 ;" press ";
1 ;" ne dolvno ";
1 ;" Your Choice Line (Enter-start,'ALL'
1 ;" Stop the tape "
1 ;" Lybaq klaviwa - prodoljenie":
1 ;" I N S T R U K C I Q ":
1 ;" Esli zada#a rehalas_ ne menee"''"3 raz, i xotq bw 1 raz pravil_no"''"- v konce kompyter ocenit tvoy"''"igru."''''" Za kajdoe pravil_noe rehenie"''"dobavlqetsq 1000 o#kov."
1 ;" wwedite ";
1 ;" bytx ""@"" ";:
1 ;" Stop the tape "
1 ;" SUM-VADERS "
1 ;" fajla "
1 ;" Thank you for playing. ":
1 ;" SUM-VADERS INSTRUCTIONS "
1 ;" PROGRAM MAGIC>TAPE MADE FOR COPY MAGIG-FILES
1 ;" imq ";
1 ;" imq ";
1 ;" NAGRADA - MUZWKA! NAJMI
1 ;" N N 0 0 N"
1 ;" Corrected by Andy 1990 ":
1 ;" U D A } I ! ";
1 ;" Popwtka: ";
1 ;" PRESS ANY KEY "
1 ;" 0 STOP OR CHOOSE AGAIN "
1 ;" ______________"
1 ;" ";
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" "
1 ;" "
1 ;" S VOZMOJNOST[Y POVTORA CIFR?
1 ;" "
1 ;" VVEDI SVOE IMQ: ";
1 ;" ";
1 ; registr
1 ; imq fa^la doljno naxoditsq v oblasti sistemn<x peremenn<x po adresy 23773 - 23788; 8)
1 ; A=255 - kod< zagryjautsq s adresa
1 ; 7)
1 :these can be
1 :if not,only 1 of the copies might be erased."'" (b)When saving different parts of the program,
1 :Wr. bu Andrew MOA, 1301995
1 :Swop suts qll squqrus wyth thu ytum On,to Off, &0qll wyth thu ytum Off,to On."
1 :On/Off togglu thu gyvun Colour ytum"'"
1 :NAUKA C
1 : @to perv<e 16384 ba^ta pamqti,zapisann<e na disk iz operacionno^ sistem<:
1 :
1 9SYS 2 C
1 9DE1 41 LD B,C nie kod rozkazu !
1 9990, &0prosuutto
1 8STD 1.02B
1 8Edit textur
1 8Edit brus
1 8 t i 1 2 3 4 5 6 7 8 9 0 b
1 8 s ; " < > S ^ v , s
1 8 for one second
1 8 e e A S D F G H J K L e
1 8 d g Q W E R T Y U I O P
1 8 c c Z X C V B N M . c
1 8 c Z X C V B N M s b
1 8 ULA TEST
1 8 Start RECORDing now
1 8 Q W E R T Y U I O P
1 8 Press the < S > key
1 8 COLOUR/FLASH TEST
1 8 A S D F G H J K L e
1 8 @togo net); AVTOMATIHESKAQ PROVERKA - avtomatiheski proverqet i soglaso-v<vaet sistemy so specifikacie^ diskovoda; "VOLWEBNAQ" KNOPKA (
1 8 1 2 3 4 5 6 7 8 9 0
1 8 to make a tone
1 8 Press
1 7CO 2.05 B
1 7,13;: LET Z=
1 7,13, you must enter PRINT
1 7,13, enter PRINT
1 6r#6U#6S##6m###6r#6U#6S##6b
1 6l#6A#6T##6b###6l#6A#6T##6m
1 6EXAMPLE C`
1 65360/61 with the start address of routine #63(Hex-Dec) which must also be in memory."
1 65290. All the memory from 32768 to 65535 is used.To replay,use #78."
1 64834, Box Width"'"
1 64832/5 with
1 64831, Box height"'"
1 64714/5, 2 bytu uq of S Qlso suu #60."
1 64711/2, 2 bytu uq of I
1 64702, Frequency 2"
1 64693, Frequency 1"'"
1 64682, Duration"'"
1 64670, 28(UP) or 29(DOWN)"
1 64651, Duration"'"
1 64649, Span"'"
1 64648, Frequency"'"
1 63951, Duration"
1 63905, New
1 63903, Old
1 63801, No: to be inserted"
1 63798/9, Start Address (2 byte eq)"'"
1 63796, No: of bytes"'"
1 63713/14 with the address of the new
1 63652/53 with the 2-byte equiv.(see #101)of the address of the
1 63648, no: of
1 63502,No: of
1 63499/500,2 byte equiv. (see#101)of
1 63017/8, Time(ms) "" """
1 63014/5, Pitch( 2 byte eq)
1 63012, Number of notes
1 63011, Pitch Decrement
1 63004/5, Time(ms) "" """
1 63001/2, Pitch( 2 byte eq)
1 60899 Now if an error of the type D: BREAK, H:STOP in INPUT or L: BREAK into prog occurs,the prog will not stop but will jump to the line no: whose 2 byte equi- valent was
1 60826. Now if/when an error(other than types 0:OK,8:END,9:STOP)occurs the program will not
1 60713","113","HEX->DEC0CONVERTER",E
1 60039.Z contains the required
1 60039 Now Z is the required code.":
1 60020, Colours0 (0-7)
1 60006,0Duration (1-127)0000
1 5SECAM C
1 5R DISK B
1 58682,Box Length in
1 58681,Box Width in pixels
1 58680,64(Up)72(Mid)80(Low)
1 58679,Top Left Square
1 57344----(8118)----65461
1 57124 with 195 IF you wish to execute m/c from an address(
1 57114/15 with 1st byte's address.
1 57110/11 with no: of bytes
1 56777,Speed(from 1=Fast to 255=Slow):if too fast you might be unable to read it. Call the routine either before running program(ignoring the initial display)or during the program.TRACE remains ON until you enter
1 56640,8896
1 52252,76 = lprint
1 52252,68 = ekran
1 49528,3310
1 4 - zagryzka programm< v kodax; pri @tom zagolovok tak- je doljen b<t$ sformirovan i pome&en v qhe^ki pamq- ti s adresami 23773 - 23788, a v zavisimosti ot so- derjimogo registra A podprogramma bydet rabotat$ po-raznomy: A=0 - kod< zagryjautsq s adresa, ykazannogo v zagolovke; A=3 - kod< zagryjautsq s adresa
1 3diskad C
1 32s.Also see #71"
1 2uEuQuYusu
1 2chanZ C
1 2ROM2,202,2QUTO
1 2ROM2,202,2CHR$ SCRQMBLE",E
1 2ROM2,202,224
1 2DISKAD BF
1 2639022,2432,2
1 2638062,2962,2RLOCK0
1 2637952,2112,2RLOCK0MEMORY0INSERT2,E
1 2637772,2182,2
1 2637282,2492,2
1 2600392,21232,2
1 2571592,2172,2QDQPT0PROGRQM2,D
1 2571262,2332,2SURE
1 2571082,2182,2HEQDERLESS FILES2,D
1 2570942,2142,2QNTI-
1 2542+(N<P):
1 24,(``AAAAAAAAAAAAAAAAAAAAAAAAB24,(```AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
1 24,(`AAAAAAAAAAAAAAAAAAAAAAAAA
1 23788.If = Program length found with #104 then it came from a MicroDrive"
1 23787+256*
1 23728/9, 2 byte eq: of a
1 23692,255 within the loop that generates the lines."
1 23676,255.";
1 23676, 223
1 23670 & 23671 now hold the less significant & more signi- ficant byte values respectively":
1 23670 & 23671 give the less sig: & more sig: bytes respectively."
1 23659,2. Use
1 23659,0 before each
1 23659,0 at prog start - the effect is that of no:5)."
1 23636.If=23755,it hasn't been paged in so far."'" (c)To check if the program just
1 23636,92.3)Use #59,#98,call #65/66 to disable BREAKs & #68 for nondeleta- ble
1 23636,150. To return to normal
1 23636),100. You can RUN but not LIST prog until you
1 23635+256 *
1 23607, 60.";
1 23607, 223
1 23606/7 WITH THE LESS/MORE SIGNIFICANT BYTES OF THE START ADDRESS LESS 256(THIS IS CURRENTLY 0/223). TO RETURN TO THE USUAL
1 23552,RAMTOP-23550-F to save your program disguised as bytes- it will autostart at the first line."'" Also see #104.";
1 23550,Address of LAST byte of
1 234382,202,2LOWER
1 2132;2,002
1 20This0routine
1 20INVERSE0SCR:
1 2 bytu uq of Stqrt Qddruss yn 63980/1 ) wyth thu dysplqy
1 2 This0routine0enarles you0to00000determine0the
1 2 This routine0sonverts0desimal000no:s0vrom000to0655350to hex. 00 It slears0the ssreen & prompts 'D:' - now ENTER the des no:.0 Error message 6 results if the no: was out of range. The rou- tine autorepeats. Enter 'Q' to quit,&
1 2 Having sonnested the EAR sosket of the cassette-recorder to the Spectrum,start playing the tape (Voice is best;Vol=Max),&
1 1erezstro1nogo kommutatora,wyhody kotoryh ob7edineny i signaly snih w sootwetstwu63ie momenty wremeni postupa6t 1erez kl61 DD
1 1astotnogo modulqtora.Signaly uprawleniq triggerami DD
1 1992 ShiSoft.":
1 1991 L.Kluev for PENCRAFT SOFTWARE, ST.PETERBURG
1 1991 benq l`ks":
1 1991 benq l`ks
1 1983 Martin Lewis"
1 16384,6912:
1 16384,6912
1 123456789ABCD
1 12345,12345
1 120"'"Thun0untur
1 11 - zapis$ na disk fa^la tipa
1 10 - poisk fa^la, imq kotorogo naxoditsq v oblasti sis- temn<x peremenn<x; nomer na^dennogo fa^la vozvra&a- etsq v registr
1 0ys now sqllud
1 0filecopyCX
1 0TRACK->BUFFER
1 08 - shit<vaetsq zagolovok s nomerom A v oblast$ sistem- n<x peremenn<x po adresy 23773 - 23788 (esli ne podkluhen interfe^s 1); 5)
1 00KGc. !astota podnesu3ej takve kommutiruetsq ot stroki k strokekl61ami DD
1 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000011111100000000000000000000000000100000000000000000000000000000001000000000000000000000000000000011111111000000000000000000000000r
1 0000 F3 DI
1 00 Om. Posle sowme3eniq 1astot nesu3ej i kanala priema nado s pomo3x6podstroe1nogo rezistora R
1 0(MDrvu)."
1 0"'"Turn Pagu: Usu ENTER or Jump"'"Munu:";:
1 0 to restart the toolkit. If called from #92, only the last 2 digits are considered."
1 0 to restart the toolkit."
1 0 restarts"
1 0 neobhodimy dlq filxtracii pomeh ot wzaimnogo wliqniqgeneratorow nesu3ej i podnesu3ej 1astot wyp. na 4l-tahmikroshemy DD
1 0 i kl61 DD
1 0 MGc).W slu1ae peregruzki antennogo whoda neobhodimoza2untirowatx katu2ku L
1 /FILECOPYB ! !"
1 /EDITmASMBtBtBCAreditas``C
1 .Trigger DD
1 .Summiru63ij usilitelxamplitudnogo modulqtora wypolnen na inwertore DD
1 .On inwertiruet stro1nyj i kadrowyj sinhroimpulxsy.Kondensatory S
1 .Naprqvenie s wyhoda 4togo inwertora moduliruetpo 1astote signal generatora podnesu3ej na DD
1 .Na1alxnaq1astota podnesu3ej rawna
1 .Keeping the
1 .Inwertor-amplitudnyjselektor sinhrosmesi wypolnen na tr-re T
1 .Generatorpodnesu3ej 1astoty wypolnen na DD
1 .Funkcii1astotnogo modulqtora wyp.inwertor DD
1 .Cwetoraznostnyesignaly postupa6t na whody analogowyh kl61ej DD
1 .Amplitudnyj modulqtor postroen na tr-re T
1 .. STARTING NOW ..
1 . Also try
1 . ""LOAD""
1 . Swidejtelxstwom togo,1to proizo2el prawilxnyj zahwat cwetowoj sinhronizacii qwlqetsq poqwlenie u werhnego kraq 4krana uzkojzelenoj poloski.Lu12ej sinhronizacii dobiwa6tsq podborom 4l-tow R
1 . Pri ime63ihsq uve w nali1ii dwuh cwetoraznostnyh signalow ipolnogo wideosignala na whoda
1 . *PRINCIP RABOTY* Signaly cwetnosti ot kompx6tera poda6taq na sootwetstwu63ie whody kodera.Iz signalow cwetnosti s pomo3x6 rezistiwnoj matricyR
1 -show free space of destina-tion disk."
1 -select source disk files for erase or copy."
1 -select source and desti- nation disk."
1 -rename source disk files."
1 -read new source disk directory."
1 -odin witok centralxnoj viloj koaksialxnogokabelq).Wse soedineniq 4l-tow otnosq3ihsq k generatoram na DD
1 -j garmonike (priblizitelxno
1 -i{bSYSTEM`TRACK`DUMPb{
1 -i;"CUT OFF";
1 -formirowatele interwala cwetowoj sinhronizacii. W ustrojstwo tak-ve whodqt generator podnesu3ej 1astoty na 4l-tah DD
1 -exit to TRDOS."
1 -erase source disk files."
1 -correspond to *Move* for source disk."
1 -copy files from source to destination disk."
1 -ZAPISAT[ NA DISK"
1 -ZAKON}IT[ RABOTU"
1 -SINT*SINT)
1 -POMENQT[ HRIFT"
1 -OMEGA*OMEGA)))
1 -NAME INTO TR-DOS SYS VARS
1 -(2 3HAKA)";h$:
1 - 23549. When the
1 ,wypolnq63em funkciiformirowatelq polustro1noj 1astoty,kommutatora signala cwetowoj sinhronizacii na kl61ah DD
1 ,wego sostaw whodqt diod D
1 ,use routine 87 to find its
1 ,to the given address,a headerless file"
1 ,this routine merges a
1 ,sqy X, to q nuw0
1 ,kotorye uprawlq6tsq formirowatelqmi polustro1noj 1astoty na triggere DD
1 ,e;"Use a Saved Character"
1 ,e;"Use Graphics A to L"
1 ,e;"Save the Character"
1 ,e;"Redraw Existing Character"
1 ,e;"Instructions"
1 ,e;"End the program"
1 ,e;"Draw a New Character"
1 ,e;"Display the Numbers"
1 ,e;"Display the Character"
1 ,a;" ";
1 ,1erezstro1nogo kommutatora DD
1 ,,J;". XARAKTERISTI}ESKI{ VEKTOR"
1 ,,,,~F@~`x``~@@>kkk>H@@~`````@@ftXX,f@@fffnvf@Xfffnvf@@lhpxlf@@
1 ,,"stepen_ n
1 ,,"DETERMINANT = ";DET
1 ,," KATA
1 ,," CTAH
1 ,," COPT
1 ,"VARIABLES SEARCH/LIST",1
1 ,"UNI-NOTE SOUND-GEN",5
1 ,"UNI-BEEP SIMULATOR",15
1 ,"UNCONFUSE LISTING",1
1 ,"U-CASE STRINGS",1
1 ,"U-CASE PROGRAM",1
1 ,"TAPE HEADER READER",1
1 ,"SUPER-RENUMBER",1
1 ,"STAR/TORUS DRAW",1
1 ,"SHUTTER-SCROLL RIGHT",10
1 ,"SHUTTER-SCROLL LEFT",10
1 ,"SCREEN-PRINT",1
1 ,"SCREEN STORE",1
1 ,"SCREEN SEARCH",1
1 ,"SCREEN OVERPRINT",1
1 ,"SCREEN INVERT",1
1 ,"SCREEN GRID",1
1 ,"SCREEN FILL",1
1 ,"SCREEN EXCHANGE",1
1 ,"SCIFI CHARACTER SET",1
1 ,"RIPPLE-SCROLL RIGHT",255
1 ,"RIPPLE-SCROLL LEFT",255
1 ,"REPLAY SOUND",0
1 ,"REMKILL CONDENSER",1
1 ,"RECORD SOUND",0
1 ,"RANDOM NUMBER GENERATOR",20
1 ,"PROTECT PROGRAM",1
1 ,"PAPER CHANGE",1
1 ,"PAINT-FILL",1
1 ,"ON ERROR GOTO",1
1 ,"ON BREAK GOTO",1
1 ,"OBLIQUE SCROLL-OFF",1625
1 ,"NON-DELETABLE LINES",1
1 ,"MULTI-BEEP SIMULATOR",8
1 ,"MONOCHROME PROGRAM",1
1 ,"MEMORY AVAILABLE",1
1 ,"LORES TOP 2/3 SCR-RGHT",255
1 ,"LORES TOP 2/3 SCR-LEFT",255
1 ,"LORES TOP 1/3 SCR-RGHT",255
1 ,"LORES TOP 1/3 SCR-LEFT",255
1 ,"LORES SCROLL-UP",24
1 ,"LORES SCROLL-LEFT",33
1 ,"LORES SCROLL RIGHT",33
1 ,"LORES R-DIAG SCROLL",22
1 ,"LORES MID 1/3 SCR-RGHT",255
1 ,"LORES MID 1/3 SCR-LEFT",255
1 ,"LORES LOW 2/3 SCR-RGHT",255
1 ,"LORES LOW 2/3 SCR-LEFT",255
1 ,"LORES LOW 1/3 SCR-RGHT",255
1 ,"LORES LOW 1/3 SCR-LEFT",255
1 ,"LORES L-DIAG SCROLL",22
1 ,"LINE RENUMBER",1
1 ,"LINE ADDRESS",1
1 ,"L-CASE STRINGS",1
1 ,"L-CASE PROGRAM",1
1 ,"KO~FFICIENTW OSTATKA",,,:
1 ,"INK CHANGE",1
1 ,"HIRES SW-DIAG SCROLL",190
1 ,"HIRES SE-DIAG SCROLL",190
1 ,"HIRES SCROLL-UP",175
1 ,"HIRES SCROLL-RIGHT",255
1 ,"HIRES SCROLL-LEFT",255
1 ,"HIRES SCROLL-DOWN",200
1 ,"HIRES NW-DIAG SCROLL",176
1 ,"HIRES NE-DIAG SCROLL",176
1 ,"HEX->DEC CONVERTER",1
1 ,"HEX LOADER",1
1 ,"FREE-SCROLLER",1
1 ,"FLASH SWITCH",1
1 ,"FLASH ON",1
1 ,"FLASH OFF",1
1 ,"EXPAND REM",1
1 ,"EXPAND PROGRAM",1
1 ,"DUAL-NOTE SOUND-GEN",10
1 ,"DEC->HEX CONVERTER",1
1 ,"CONTRACT PROGRAM",1
1 ,"CONFUSE LISTING",1
1 ,"COMPRESS NUMBERS",1
1 ,"CLEAR ALL ",1
1 ,"CHR$ SCRAMBLE",1
1 ,"BRIGHT SWITCH",1
1 ,"BRIGHT ON",1
1 ,"BRIGHT OFF",1
1 ,"BORDER EFFECTS",10
1 ,"BLOCK MEMORY INSERT",1
1 ,"BLOCK LINE DELETE",1
1 ,"BLOCK LINE COPY",1
1 ,"AWAIT KEYPRESS",1
1 ,"ATTRIBUTE SCR-UP",40
1 ,"ATTRIBUTE SCR-RIGHT",200
1 ,"ATTRIBUTE SCR-LEFT",40
1 ,"ATTRIBUTE SCR-DOWN",40
1 ,"ATTRIBUTE FILL",1
1 ,"APPEND STATEMENT",1
1 ,"ANALYSE PROGRAM",1
1 ,"ANALYSE MEMORY",1
1 ,"ALL-RIGHT SCROLL",32
1 ,"ALL-LEFT SCROLL",32
1 ,"24-LINE PRINTING",1
1 ,"2 BYTE CONVERTER",1
1 , use a fresh cassette - the routine is saved under the name ";
1 , use GOTO 9001(not RUN)to restart the program."
1 , prixoditsq obra&at$sqk operacionno^ sisteme, minyq Be^sik i interpretator
1 , prihem dlina zagryjaemogo fa^la opredelqetsq znaheniem
1 , pri pomo&i tablic<10380 - 10455 peredaet ypravlenie sootvetstvyu&e^ podprogramme-procedyre. Parametr< dlq @tix podprogramm soob&autsq pri pomo&iregistrov mikroprocessora libo naxodqtsq v oblasti sistemn<x pe-remenn<x
1 , prevra&aq ego iz igryw-ki s dovol$no medlenn<m i nydn<m processom zagryzki programm vves$ma @ffektivn<^ instryment. Samaq kratkaq xarakteristika
1 , no dlina zagryjennogo fa^la ravna dline fa^la, zapisannogo na disk; 10)
1 , na-primer, iz programm<, napisanno^ v mawinn<x kodax ili na drygomqz<ke. Predlagaem<^ v firmennom rykovodstve k
1 , mnojestvo kopirov&ikov i arxivatorov, neskol$ko igr i sistemn<x programm. Jyrnal "KOMP%UTER" 1(4) Tadeyw Raduw
1 , hto pozvolqet osy&estvlqt$ dostyp k fa^lam nadiske iz Be^sika ili mawinn<x kodov; RABOTA S FA`LAMI -
1 , PEEK 23681."
1 , on an empty Spectrum,to
1 , naprimer qz<kPaskal$ versii
1 , adaptirovann<x k rabote s
1 , "'" polojitel_nwm i ne bol_he p ":
1 , whysh sqvus spqsu but rudusus spuud. 0 ys ruplqsud by NOT PI. Qlso suu #64,#82,#90,#103,#104. To sqvu uvun moru spqsu,ruplqsu qll sommonly ossurryng numburs (yu 0,1,2,10 uts)by vqryqblus, dufynud qt thu stqrt. Routynu #72 ys usuful for losqtyng no:s"
1 +t;a$(a+l,17
1 +t;a$(a+l,15
1 +t;a$(a+l,11
1 +t;a$(a+l,1
1 +t;"+";a$(a+l,13
1 +A;", 26";
1 +-*]\"[\*Q\
1 ++F+N+++"]\*S\~
1 ++F+N+++"]\
1 +"W\#"S\"K\6
1 + Del file
1 *pERERABOTAN DLQ sm6337*
1 *ing:if a program is long/RAMTOP is low it could crash when you try to
1 *ing long programs.If any message besides 0 OK appears,shorten the prog: or
1 *^[&%>}/,-]'$<{?.+
1 *]\###q#p##"]\
1 *WARNING*
1 *S\##"]\^#V
1 *SUPERCODE
1 *HISOFT GENS3M2 ASSEMBLER*
1 *A(I,J)*A(I,J)
1 **e\++++++F+N
1 *((x$="P")*(x<16
1 *((x$="A")*(y<14
1 *"m";E;"SUPERCODE4":
1 *"m";E;"SUPERCODE4"
1 *""m"";n;Nqmu$
1 * it.That would lose the whole program.Instead,call this routine before
1 * ""m"";n;Name$(
1 )to tfr parts 3&4."'"(4)You now have a verified copy of SUPERCODE on microcartridge -it will autostart if you enter
1 )to Tqpu/Mysrodryvu,
1 ); 2 ba^ta - nahal$n<^ adres; 2 ba^ta -dlina fa^la; 1 ba^t - zanimaemoe kolihestvo sektorov; 2 posled-nix ba^ta - sootvetstvenno nomer sektora i dorojki, s kotor<xnahinaetsq fa^l na diske. Na diske zagolovki fa^lov zapisan< v perv<x 8 sektorax(s 0 po 7) nylevo^ dorojki. Sistemnyu informaciu o diske soder-jit 8-^ sektor nylevo^ dorojki, tohnee, poslednie ba^t< @togosektora, nahinaq s nomera 225. Nije privodqtsq adresa i ixsoderjimoe v sistemnom sektore: 225 - perv<^ svobodn<^ sektor 226 - pervaq svobodnaq dorojka 227 - 22 = dvystoronni^, 24 = odnostoronni^ disk 228 - kolihestvo fa^lov 229,230 - kolihestvo svobodn<x sektorov (mladwi^ i starwi^ ba^- t<)
1 ). To qssuss q routynu whosu no: ys known, pruss
1 ). For wqys to rulosqtu routynus,0pruss0
1 )-(x$="Q")*(y>9
1 )-(x$="O")*(x>9
1 ),No:s/Var (2.3,Z,A$),operations(*),rel(<) etc,or combinations of these.
1 ), or just after,part1,and call it from there.It will
1 )))))))))))))@
1 ))))))))))))))))))))
1 )))))))))))))))))
1 ))))))))))
1 )"''"2- 3A
1 ) to rustqrt. To gut thys routynu's dutqyls qnothur tymu, pruss
1 ) zapis<vaetsq
1 ) v desqtihno^ forme 08121 - 08137 tablica 10086 - 10299 tekst soob&eni^
1 ) 242 - : 243 - 0 244 - kolihestvo ydalenn<x fa^lov 245 - : ...
1 (wyth Z=Q+256*ZZ)qs0yn0sqsu(1) ovur|eqf.Notu thqtthu routynu wyll no longur workat yts old qddruss."'"(3)Thu ROM routynus & #120 qru vdyffysult to rulosqtu (why uvur rulosqtu q ROM routynu?1),#77/78hqvu to bu losqtud qt thu top ofRQM.":
1 (same number),0.2)
1 (c(h,p(i)))
1 (X/256)"'"
1 (V3-V1)*V2/
1 (V2*V2+MU)
1 (N1-I)+" "
1 (M1-I)+" "
1 (Indux). Usu ENTER to turn pqgus To qssuss thu nuxt routynu yn thu Indux, pruss
1 (DENCOPY2B6
1 (C$(M));" HOB
1 (B$(M));"HOB
1 (63768,63771)
1 (63762)
1 (63744)
1 (63738)
1 (63732)
1 (1)Usyng PQUSE"'"(2)W/out PQUSE
1 (1)Reset the Spectrum.Put a new cartridge in Microdrive#1"'"(2)Enter
1 (*)/ INDEX/ CUSTOMISE"'"Rustart: Usu
1 (""SUPERCODE"", or ERCO),commands(
1 'ZXCVASDFGQWERT1234509876POIUY
1 '(exit).You willthen have the option of SAVEing the routine on tape,QUITting to BASIC or restarting."
1 '''"V bwrajeniqx soblyden normal_nw%"'" porqdok vwpolneniq operaci%:"''" umnojenie vwpolnqetsq pered"'" slojeniem libo vw#itaniem."
1 '''"Use the arrow keys , 5 to 8 , tomove around the grid."
1 '''"JDITE
1 ''"Zna#eniq x(k),u(k), gde x(k) doljnw bwt_ razli#nw:"''
1 ''"To turn the pen on and off pressthe , 0 , key."
1 ''"The numbers are printed in four columns and represent the following Graphics Characters : "
1 ''"The first 8 rows are: A B C DThe next 8 rows are: E F G HThe last 8 rows are: I J K L"
1 ''"Once the numbers are displayed press any key to continue."
1 ''"Ohibka sredne% approksimacii ravna summe kvadratov raznicw podeleno% na #islo par p=";p;" :"''"OSA=";bsa:
1 ''" Once the pattern is complete press , C , to continue."
1 ''" Vpisat_ cifrw ot 1 do 9 tak,"''"#tobw bwpolnqlis_ vse ravenstva."
1 ''" Zada#a igrw prosta:"''"trebuetsq na%ti 9 cifr, kotorwe nado vpisat_ v diagrammu tak, #tobw vwpolnqlis_ vse uravneniq po vertikali i po gorizontali."
1 '"Thys routynu wyll bu sqvud wyth thu provysyonql nqmu
1 '"Select options 1,7 or 8 when theprogram is first RUN.":
1 '"If qn urror mussqgu qppuqrs, usuGOTO 0 to rustqrt."'"Entur thu Mysrodryvu numbur, or just pruss Entur for thu dufqult# of 1.":
1 '"Gotovo - najmi
1 '"BIG GEN allows you to draw largeGraphic Characters composed of 12 normal characters arranged as3 rows of 4 characters."
1 '" (1)At 10% Speed, using PAUSE"'" (2)At Full Speed"
1 '" To access the next routine in the Index, press '
1 '" To access a routine whose no: you know, press '
1 '" If you would like to have the details of this routine again, press '
1 '" If you wish to return to the Index, press '
1 '" Est_ dve versii, trebuy|ie razno% taktiki pri razgadke:"''"- v odno% versii nado v krat#a%-hi% srok vpisat_ iskomwe 9 cifr (bez povtoreni%),"''"- v drugo% kajduy cifru mojno ispol_zovat_ neskol_ko raz."''" Pered igro% komp_yter predlojitvam vwbrat_ odnu iz \tix versi%."
1 ' (repeat)"
1 ' (number)":
1 ' (index)"
1 ' (continue)"
1 ' ALL MAGIC FILES WILL BE COPIED TO TAPE.
1 &asti&naj o&istka
1 & statement no: currently being executed.
1 %sp23 B
1 $sp22 C@
1 $sp21 C
1 $SUPERC2 B
1 #s;t$,q$,d$,b$
1 #s;b$,b$,b$,b$
1 #q ^>82H\>
1 #ka;"A-ABTOMO
1 #ka;" HA
1 #T]##N#F#~
1 #4; is executed(use with r.no:65) This pages in the shadow ROM, if present."'" (b)To check if the shadowROM is paged in,
1 #0GENERQTOR2,E
1 #0/#1.If the lower part of
1 #"a\"c\"e\>82
1 # command does
1 "x(";i;")=";:
1 "when 5 robots":
1 "u(";i;")=";:
1 "the ROBOT lands":
1 "the ROBOT lands"
1 "test all"
1 "ship will drop a":
1 "r(";x(i);")=";r
1 "programs.This BASIC program letsyou list,test,customise,relocateSAVE & VERIFY routines easily - but the routines will work just as well if the program is absent"
1 "numbered":
1 "navaw klawi{i 1-5"
1 "have landed"
1 "filecopy"
1 "compiler"
1 "c CP
1 "alien robot"
1 "a:12345678"
1 "a(";i1;")=";z(i)
1 "a"+m,c(j+k,i)
1 "]\w#6$#6=
1 "Zna#enie raznicw r(x)=f(x)-u(x)"'"dlq zadanwx zna#eni% x=x(k):"''
1 "ZNA}ENIE LAGRANJEVA POLINOMA"''"F(";X0;")=";P
1 "ZAPIS[ FA{LA ";I$'"S ADRESA-";NN'"DLINO{-768"
1 "XARAKTERISTI}ESKIE }ISLA",,,
1 "X(";I;",";J;")=";X(I,J)
1 "X";I;"=";Y(I)
1 "Wyberi revim "
1 "Wtoroe ~islo=";B
1 "Win-1987"
1 "WIN-1987"
1 "Vvod na#al_nwx dannwx:"''"#islo p par zna#eni% x(k),y(k):"''
1 "VAHI KODW :"'"23606-KOD ";N2'"23607-KOD ";N1''
1 "UDG area name :";n$
1 "U(";J;",";I;")=";S(I,J)
1 "To0storu0thys0routynu0on0q0Mysrodryvu0sqrtrydgu,pruss0
1 "This routine has now been saved.Replay it NOW to VERIFY. If the recording is bad, you will be automatically returned to the SAVE option via the Error-trap routine."
1 "The save MUST then be verified."
1 "The cursor (+) is best treated as the tip of a pen which can beset to draw or rubout using the 0 key"
1 "The code is from 57344 to 65461:it overwrites the first 12 UDGs.RAMTOP has been cleared to 57340"
1 "The character is drawn magnified8 times. A hightighted cursor square is moved around the grid using the arrow keys."
1 "The Index follows- input the no:of a routine for its description(incl all addresses & POKEs)& anoptional example.Get to know theMenu options ";:
1 "That was the Laser Zap. Now for the Uni-Beep.":
1 "TREAK-";i;" ";"SECTOR-";j
1 "TREAK ?";ii
1 "Source disk ";
1 "Selected ";
1 "STATIST+"
1 "SOURCE DISK? ";:
1 "SECTOR ?";jj
1 "SAVE to disk or to tape? ";q$:
1 "S KAKOGO ADRESA ?";N:
1 "ROM","0","STQR/RING DRQW",E
1 "ROM","0","PROTECT PROGRQM",D
1 "ROM","0","NON-DELETABLE
1 "ROM","0","MDRVE DIQGNOSIS2,D
1 "ROM","0","FREE-SCROLLER",E
1 "ROM","0","FAST
1 "ROM","0","20BYTE0CONVERTER",E
1 "REHENI{ NET"
1 "REHENIE"''
1 "REHENIE SISTEMW LIN. URAVNENI{"''"(METODOM GAUSSA)";
1 "Qnd now qt slow spuud":
1 "Programa prednazna#ena dlq approksimacii funkcii"''" u=u(x)"''"po p izvestnwm zna#eniqm"''" x(k) i u(k)=u(x(k)), (k=1..p)"''"i vw#isleniq u(x0)."
1 "Priblijenie u(x) mnogo#lenom i ocenka (det S):"''
1 "Press the key in the brackets for the desired command."
1 "Ploho - ocenka 3"
1 "Picture name :";n$
1 "Perwoe ~islo=";A:
1 "POKEs necessary for tailormakingthe program to your specific needs ) press '
1 "O~enx ploho - ocenka 2"
1 "OK,thu nqmu ys
1 "OK,thu Mysrodryvu # ys
1 "OBRATNAQ MATRICA",,,,
1 "OBRATNAQ MATRICA & DETERMINANT";
1 "Not found"
1 "New name:";b$:
1 "NOK=";C/A,"NOD=";A,,,
1 "NLQ?";q$:
1 "NAME",Y$:
1 "NAME",U$:
1 "Move the cursor to the required line & then call this routine. You will be in EDIT mode, but with the cursor at the END of the line."
1 "Molodec - ocenka 5"
1 "Maksim Ivanov"
1 "Main Menu :":
1 "MOD A/B=";:
1 "MATRICA SINGULQRNA, K=";K
1 "Loading 'chanZ'
1 "LQMBDA";I;"=";A(I,I)
1 "LAGRANJEVA INTERPOLQCIQ";
1 "KO~FFICIENTW }ASTNOGO",,,:
1 "KAPTOTEKA
1 "IMQ FA{LA ?",I$
1 "Horo{o - ocenka 4"
1 "Furthur Ruading: Programming the Z80 (R.Zaks,ISBN 0-89588-094-6) Complete SpectrumROMDisassembly (I.Logan&F.O'Hara,ISBN 0-86759- 117-X)":
1 "File: ";n$(i);" selected"
1 "File name ";
1 "File exist"
1 "F R p F R p"'':
1 "Esli ho~e{x poprobowatx e}e raz navmi 1, esli net navmi 2."
1 "Err code=";c:
1 "Each normal character is made upof 64 pixels (or dots) on a 8x8 grid hence each largs character is composed of a 32x24 grid."
1 "Disk not ready"
1 "Disk full"
1 "Disk error"
1 "Destinaton disk ";
1 "DESTINATION DISK? ";:
1 "DELENIE POLINOMOV A(X)/V(X)";
1 "Commands in SELECT mode:":
1 "Catalog full"
1 "CENTRONI"
1 "Are you sure ?(y/n)";k$
1 "Allocated ";
1 "A","B","V","G","D","E","G","Z","I","{","K","L","M","N","O","P","R","S","T","U","F","X","C","}","H","^","]","W","[","~","Y","Q","a","b","v","g","d","e","g","z","i","%","k","l","m","n","o","p","r","s","t","u","f","x","c"
1 "A","70","M","80","D","90","S","100","L","170","H","900","E","150"
1 "=""";a$;"""";" ";
1 ";p;" priblijeniq u(x):"''"n=";
1 ";Q+P;", Box Wydth"'"
1 ";Q+M;", Box Huyght"
1 ";Q+G;" wyth"'"
1 ";Q+F;", INT(X/256)"
1 ";Q+E;", X- 256*
1 ";Q+E;", Nuw Qttrybutu Vql"'"
1 ";A+E;", Overall Colour"
1 "9";"DEC";
1 "9",H;"To call this routine, use";
1 "9",D;" If the 2 byte equivalent of X = L(Less)/M(More) sig: bytes,then L+256*M=X.The less significant byte comes 1st. This routine is an instant converter of numbers from 0-65535 to their 2 byte equivalents.To convert X to its 2 byte equiv.,enter
1 "8";"otvarnoe mqso ?":
1 "7";"ot liwnego vesa!":
1 "7";"na desqtx voprosov.":
1 "7";"ih vesxma b$stro ?":
1 "65494","32","PIXEL RIGHT-SCROLL",S
1 "65462","32","PIXEL LEFT-SCROLL",S
1 "65350","112","HEX
1 "65318","32","REPLQY SOUND",D
1 "65290","28","RECORD SOUND",D
1 "65277","8","SURE
1 "65256","21","
1 "65204","52","
1 "65143","61","
1 "65081","62","
1 "65026","55","
1 "64982","44","
1 "64965","17","
1 "64948","17","
1 "64931","17","
1 "64914","17","
1 "64884",M:
1 "64883","31","
1 "64858","25","
1 "64828","30","
1 "64809","19","
1 "64784","25","
1 "64756","28","
1 "64744","12","
1 "64706","38","
1 "64675","31","TUQL-NOTE0SOUNT-GEN",J
1 "64647","28","UNI-NOTE0SOUNT-GEN",H
1 "64629","18","SHUTTER0RIGHT-SCROLL",I
1 "64611","18","RIPPLE RIGHT-SCROLL",S
1 "64593","18","SHUTTER LEFT-SCROLL",I
1 "64575","18","RIPPLE LEFT-SCROLL",S
1 "64550","25","
1 "64525","25","
1 "64500","25","
1 "64475","25","
1 "64450","25","
1 "64425","25","
1 "64400","25","
1 "64375","25","
1 "64350","25","
1 "64325","25","
1 "64300","25","
1 "64275","25","
1 "64211","59","LOWER-CS0PROGRQM",T
1 "64197","14","MEMORY AVAILQBLE",E
1 "64098","99","PIXEL DOWN-SCROLL",192
1 "64001","97","PIXEL UP-SCROLL",192
1 "63976","25","
1 "63950","26","LASER0ZQP",I
1 "63644","83","
1 "63490","154","
1 "63382","108","INITIALISE",D
1 "63205","177","
1 "63163","42","
1 "63143","20","
1 "63124","19","
1 "63051","73","
1 "63034","17","OBLIQUE SCROLL-OFF",1625
1 "63010","24","MULTI
1 "63000","10","UNI
1 "62943","54","MONOCHROME PROGRQM",D
1 "62857","86","QNQLYSE MEMORY",E
1 "62819","38","
1 "62533","286","TQPE HEQDER REQDER",D
1 "62404","129","QNQLYSE PROGRQM",E
1 "62087","317","EXPAND PROGRAM",D
1 "61400","687","CONTRQCT PROGRQM",D
1 "61000","400","BLOCK
1 "60972","24","QWQIT KEYPRESS",D
1 "60899","72","ON BREQK
1 "60879",D:
1 "60878",J:
1 "60826","73","ON ERROR
1 "60595","118","DEC->HEX0CONVERTER",E
1 "60494","101","
1 "60407","86","QPPEND STQTEMENT",D
1 "60222","185","VARIQBLES
1 "60192","30","
1 "60162","30","
1 "60046",trc:
1 "60045",sec:
1 "60029",Z:
1 "60029",I:
1 "60020",F:
1 "60006",I:
1 "60000","38","
1 "6";"DISK ERROR ";S:
1 "59988","12","PROGRQM LENGTH",E
1 "59975","13","
1 "59294","681","SUPER-RENUMBER",D
1 "59136","158","PQINT-FILL",E
1 "58892","244","
1 "58833","59","UPPER-CS
1 "58774","59","LOWER-CS
1 "58715","59","UPPER-CS PROGRAM",T
1 "58683","31","BLOCK MEM
1 "58608","75","PIXEL BOXRIGHT SCROLL",S
1 "58571","112","PIXEL BOXLEFT SCROLL",S
1 "58398","173","UNCONFUSE
1 "58263","135","CONFUSE
1 "58115","148","COMPRESS0NUMBERS",T
1 "57344","768","SCIFI
1 "57176","168","FOREIGN QCCENTS",E
1 "56777",E:
1 "56640","450","TRQCE0VQRI-SPEED",E
1 "56"*(N<P)'" SCROLL-OFF:
1 "4)Imbed hidden colour CHR$ to set INK=PAPER within non-delet- able lines:the listing vanishes5)Autostart by using SAVE Name$ LINE X. Let line X be 'LET ERR= 256*PEEK 23614 +PEEK 23613:POKE ERR,0:POKE ERR+1,0'. Any BREAK/ error will now cause a crash.":
1 "4)Embed hidden colour CHR$ to set
1 "4";"vitxsq ot liwnego vesa.";
1 "4";"udastsq li Vam pohudetx.";
1 "4";"svoe& pervo& programmo&:";
1 "4";"Itak, na[ali vorojitx...":
1 "36"+Q;", 26"'" SCROLL-OFF:
1 "36"+Q;", 0"
1 "3190","0","
1 "3";"o kakom-to lybimom blyde ?":
1 "3";"nostx pi#i,kotoruy edite ?":
1 "2590"*(N$="L")
1 "23681",I:
1 "23659",F*(N=
1 "23606",D:
1 "234"-Z,D:
1 "23295"+Z,
1 "21";"pohudetx""."
1 "20"*(NMAX=F)
1 "2.3025"):
1 "2";"vitesx ot liwnih kilogrammov.":
1 "2";"svo& rejim pitaniq! Ina[e V$";
1 "2";"pri n$newnem rejime pitaniq ?":
1 "2";"nemnogu, skajem, westx raz v";
1 "2";"\tot test pomojet Vam uznatx,";
1 "2";"Zanimaetesx li V$ regulqrno";
1 "2";"Vsegda li V$ znaete kalori&-";
1 "2";"Vawu li[nostx korotko mojno";
1 "2";"Vawi volq,[estolybie, ambicii";
1 "2";"Vas otli[ayt intelligentnostx";
1 "2";"Vas otli[aet b$strota, sko-";
1 "2";"VVEDITE VAWE IMQ,POJALU}STA:":
1 "2";"V$ vsegda poln$ ]nergii,bolx-";
1 "2";"V$ vesxma [utki k okrujay#im.";
1 "2";"V$ smelo vstre[aete licom k";
1 "2";"V$ obladaete takimi [ertami";
1 "2";"V$ obladaete bolxwim moralx-";
1 "2";"V$ lybite roz$gr$wi i syrpri-";
1 "2";"V$ lybite bolxwie, neob%qtn$e";
1 "2";"V$ lybite uton[ennoe i iz$s-";
1 "2";"V$ doljn$ otkrovenno otvetitx";
1 "2";"V$ [asto otdaetesx vole sudx-";
1 "2";"V$ - rassuditelxn$,stremitesx";
1 "2";"V$ - bolxwo& optimist i odno-";
1 "2";"V$ - ]ntuziast,kotor$& jelaet";
1 "2";"V$ - [elovek,poln$& ognq, ob-";
1 "2";"V$ #edro odaren$ sposobnostxy";
1 "2";"V$ umeete bespristrastno i";
1 "2";"V$ diplomati[n$& i v to je";
1 "2";"U Vas silxnaq volq! V$ b$stro";
1 "2";"U Vas pronicatelxn$& um,stro-";
1 "2";"U Vas mnogo polojitelxn$h ka-";
1 "2";"Pitaetesx li V$ [asto, no po-";
1 "2";"Okrujay#ie utverjdayt, [to V$";
1 "2";"Odnim iz drevne&wih u[eni& ob";
1 "2";"Nomerologiq osnov$vaetsq na";
1 "2";"Nemalo lyde& hoteli b$ izba-";
1 "2";"Mojno skazatx, [to vse razig-";
1 "2";"Horowo li V$ sebq [uvstvuete";
1 "2";"Dolgo li zaderjivaytsq u Vas";
1 "2";"Dannaq programma neobhodima";
1 "2";" Otvet 'NET' - klaviwa ";:
1 "2";" Otvet 'DA' - klaviwa ";:
1 "2";" (imq doljno b$tx POLNOE!) ":
1 "19",E;"8 sqlls"
1 "18";"HEX"
1 "18",D;" WRQP-QROUND:
1 "16";"Right"
1 "16"-G*(N<P);2,2;
1 "16"-G*(N<P);",";
1 "15",E;"To ssroll qttrybutus qs wull, rufur to routynus 37-40(dufynu suytqblu box & Qttr vqluu).Cqll thu qttrybutu ssroll onsu pur 1 sqll of thys routynu.":
1 "128","128","128","128","128","128","128","255"
1 "127","127","127","127","127","127","127","0"
1 "1210"+N*I:
1 "12";"paniy ?":
1 "12";"denx ?":
1 "111"),D;"
1 "109"),H;"
1 "10";"zarqdko& ?":
1 "10";"uje s$t$ ?":
1 "10";"svo& ves ?":
1 "10";"FAMILIY, ":
1 "1";"zna[itelxnuy rolx v Vawe& jiz-";
1 "1";"zakonomernomu uspehu."
1 "1";"z$, stremitesx,poro& ne sozna-";
1 "1";"wuy [astx jizni provodite v";
1 "1";"wimostxy i ogromno& sposobnos-";
1 "1";"westvovatx. Dlq Vas ponqtie";
1 "1";"westviq i vse, [to pozvolqet";
1 "1";"vvedite svoy DEVI~XY familiy!)":
1 "1";"vtorostepenn$h pod[inenn$h";
1 "1";"vsemi geneti[eskimi predwest-";
1 "1";"vsego zame[atelxn$& rabotnik,";
1 "1";"vsegda i#ete wans i probuete";
1 "1";"vsegda b$tx na scene i ne ly-";
1 "1";"vsegda udivlqete okrujay#ih";
1 "1";"vse je V$ vsegda vozvra#aetesx";
1 "1";"vremq ]mocionalxn$& [elovek.";
1 "1";"vremenno isp$t$vaete v$rajen-";
1 "1";"voznikayt vsegda neojidanno,no";
1 "1";"voshi#ali ostroumn$e, nahod[i-";
1 "1";"voobrajeniem, lybite iskusstvo";
1 "1";"volxstvie v materialxnom mire";
1 "1";"volqyt Vam razvivatxsq i dobi-";
1 "1";"vlekaet komfort v okrujay#e&";
1 "1";"viqm. Po svoe& nature V$-idea-";
1 "1";"vennikami bolee wiroko;";
1 "1";"veka."
1 "1";"vatxsq uspeha;"
1 "1";"vatx rewitelxnoe soprotivlenie";
1 "1";"vaq ]togo, ukrasitx sebq,priv-";
1 "1";"vaete potrebnostx odarivatx";
1 "1";"v$zvannaq somneniem v sob-";
1 "1";"v$qvitx,opisatx svo&stva [elo-";
1 "1";"v$glqdite impulxsivn$m i kap-";
1 "1";"v$e lydi,[asto v$stupavwie dlq";
1 "1";"uspeha."
1 "1";"umeete ]tu nasledstvennuy mud-";
1 "1";"txy borxb$ s jiznenn$mi trud-";
1 "1";"tverdo znaete, kak nado jitx,i";
1 "1";"truistom i idealistom, isp$t$-";
1 "1";"tqgivaete lyde& kak nastoq#i&";
1 "1";"tor$e imeyt bolxwoe vliqnie na";
1 "1";"tomu, [tob$ dob$tx bogatstvo i";
1 "1";"tolxko s temi partnerami,koto-";
1 "1";"tolkovanii [isel ot 1 do 9,";
1 "1";"to, [to b$lo peredano semxe&,";
1 "1";"to horowih, na Vaw vzglqd, ly-";
1 "1";"tiruetesx k lyb$m nov$m uslo-";
1 "1";"ti[eskie produkt$: tvorog,s$r,";
1 "1";"terpenie, neutomimostx, posto-";
1 "1";"tensivnaq aktivnostx - imenno";
1 "1";"telxn$mi dlq semxi, a imenno:";
1 "1";"te vesti bescelxn$& ili prazd-";
1 "1";"te leniv$h i melo[n$h;"
1 "1";"taviv edu na tarelke, esli V$";
1 "1";"svoboda - ]to cennostx,ne pod-";
1 "1";"sudxbo&. Budu[i vesxma aktiv-";
1 "1";"stvenn$h silah, umnojennaq na";
1 "1";"stvenn$e psihologi[eskie ha-";
1 "1";"strasti, no pri ]tom vse vremq";
1 "1";"stolx intensivno, V$ ne terpi-";
1 "1";"stabilxn$&. Vas otli[aet glu-";
1 "1";"sposoben razrewitx Vaw intel-";
1 "1";"spihivatx v$polnenie svoih za-";
1 "1";"sostoqnie zavisit prejde vsego";
1 "1";"sobstvenno& wkale jiznenn$h";
1 "1";"sobstvenn$e [uvstva. Po]tomu v";
1 "1";"soboy i drugimi lydxmi. Odnako";
1 "1";"skolxku 0-simvol pustot$,to on";
1 "1";"skannoe.Vo vsem Vawem razvitii";
1 "1";"silxno vliqet [uvstvo distan-";
1 "1";"sebq svobodno,isp$t$vaete pri-";
1 "1";"sbrosite nenujn$e kilogramm$!":
1 "1";"s[italisx polezn$mi i jela-";
1 "1";"s ee pomo#xy V$ dobivaetesx";
1 "1";"rostx umstvenn$h de&stvi&.Lov-";
1 "1";"rostx ispolxzovatx doljn$m ob-";
1 "1";"rizn$m;"
1 "1";"rivaet Vas perekusitx za kom-";
1 "1";"redelqyt Vaw avtoritet u okru-";
1 "1";"re[islenie zanqlo b$ sliwkom";
1 "1";"razom;"
1 "1";"rakteristiki ili svoih znako-";
1 "1";"rabote s trudom perenosite od-";
1 "1";"r$vaetsq vnutri Vas. Dlitelx-";
1 "1";"r$e doljn$ v$polnqtx drugie."
1 "1";"r$e V$ cenite prev$we vsego";
1 "1";"r$e uvajayt Vawu nezavisi-";
1 "1";"qnstvo i spoko&stvie. Vas pri-";
1 "1";"prqjenie i stress;"
1 "1";"prostranstva,stremitesx k pre-";
1 "1";"professionalxno& deqtelxnosti";
1 "1";"priv$[n$h sposobov de&stvi&."
1 "1";"prioritetov V$ stavite v$we";
1 "1";"pravdu. Soyz$ i rasstovaniq";
1 "1";"postupaete sootvetstvenno;"
1 "1";"ponimaete sm$sl sekretov i";
1 "1";"pomogayt Vam iskatx i nahoditx";
1 "1";"pomogatx tem iz okrujay#ih,ko-";
1 "1";"polojennostxy k ]ffektivnomu";
1 "1";"podtekst dram v jizni. Pritq-";
1 "1";"pod opredelenn$m vliqniem (po-";
1 "1";"otli[aytsq sentimentalxnostxy.";
1 "1";"otli[aetsq izvestno& neterpe-";
1 "1";"ot ravnovesiq [uvstv.Dom,semxq";
1 "1";"ot okrujay#ih;"
1 "1";"ostalxnogo. V rabote V$ [asto";
1 "1";"ostaetesx glavo& semxi. V ra-";
1 "1";"osobennostqh lyde&, narqdu s";
1 "1";"osobenno nravqtsq nevedom$e,";
1 "1";"original."
1 "1";"onalxn$e sostoqniq kak s[astxe";
1 "1";"oharakterizovatx kak postoqnno";
1 "1";"odnako, postoqnnaq sosredoto-";
1 "1";"odnako u Vas estx i ostoroj-";
1 "1";"odaleniy kak mojno bolxwego";
1 "1";"ocenivayt Vaw harakter kak";
1 "1";"obu[eniy;"
1 "1";"obstanovke, V$ nahodite udo-";
1 "1";"obraz jizni;"
1 "1";"obojaete delitxsq radostqmi;"
1 "1";"obaqnie sposobstvuet soedine-";
1 "1";"o[enx vajnuy rolx igraet gar-";
1 "1";"nuy potrebnostx b$tx zame[en-";
1 "1";"nravitsq sotrudni[atx s drugi-";
1 "1";"novo& dlq Vas professii."
1 "1";"nostx v de&stviqh i postupkah,";
1 "1";"nostx i snishoditelxnostx poz-";
1 "1";"nostx i nahod[ivostx pomogayt";
1 "1";"nostqmi. Kak pravilo, V$ legko";
1 "1";"nosti, zadavatx mnogo voprosov";
1 "1";"noste&, - [asto i takie, koto-";
1 "1";"noobrazie i rutinu,no zato mo-";
1 "1";"no, navernqka privedut Vas k";
1 "1";"no& li[nostxy, V$ ne lybite";
1 "1";"niy i ob%edineniy lyde&.Vstre-";
1 "1";"nim materialxn$m mirom, V$";
1 "1";"nikay#ih problem. Okrujay#ie";
1 "1";"nii. V$ [utko reagiruete na";
1 "1";"niem;"
1 "1";"ni, napolnqq ee nov$m soderja-";
1 "1";"neskolxko tiranite drugih i";
1 "1";"nepredvzqto ocenivatx svoih";
1 "1";"neojidann$e problem$, kotor$e";
1 "1";"nenavidite kolebaniq. V$ - [e-";
1 "1";"nedostatkom - rasseqnostxy. No";
1 "1";"ne prinimaetsq vo vnimanie).";
1 "1";"nahodq#uysq v poiskah garmo-";
1 "1";"nahoditxsq v postoqnno& aktiv-";
1 "1";"na grewnuy zemly;"
1 "1";"n$m mujestvom,nepreklonno& re-";
1 "1";"n$m okrujay#imi. Vas vsegda";
1 "1";"n$e razm$wleniq i vospominaniq";
1 "1";"n$&. V$ libo lybite,libo net i";
1 "1";"n$& obraz jizni. Vam nravitsq";
1 "1";"mostx. Mojno skazatx, [to V$ -";
1 "1";"moniq [uvstv i perejivani&;"
1 "1";"mongo mesta. Vo monogom blago-";
1 "1";"mojnosti dlq de&stviq. Vawe";
1 "1";"mitesx ispolxzovatx lyb$e voz-";
1 "1";"mi ili davatx sovet$."
1 "1";"metod i usiliq pustx postepen-";
1 "1";"materinski& i [uvstvenn$&. V";
1 "1";"materialxn$m;"
1 "1";"manno& osnove, V$ otdaete sil$";
1 "1";"magnit. Naibolxwee zna[enie v";
1 "1";"m$h..."
1 "1";"lybovxy. V rabote Vam bolxwe";
1 "1";"lqrno delatx zarqdku, to izba-";
1 "1";"lqetsq dlq Vas pust$m slovom.";
1 "1";"lqet ]mocianalxnuy naturu [e-";
1 "1";"loveka, a takje sovokupnostx";
1 "1";"lovek impulxsivn$& i uvle[en-";
1 "1";"logiq, kotoraq interpretiruet";
1 "1";"livostxy. V$ ne lybite okaz$-";
1 "1";"liv tvor[eskih sil sredi dete&";
1 "1";"list, no na Vawe povedenie";
1 "1";"licu vse opasnosti, pos$laem$e";
1 "1";"lekt;"
1 "1";"leja#aq zamene. Veroqtno, v";
1 "1";"leg[enie drugim. Samootverjen-";
1 "1";"le[x vnimanie. V$ [uvstvuete";
1 "1";"lanie rukovoditx. Ispolnenie";
1 "1";"krasotu i iskusstvo,i Vawe ob-";
1 "1";"kotoruy V$ ohotno zapolnqete";
1 "1";"kotor$e mogut i prinositx ob-";
1 "1";"kostx, snorovka, lyboznatelx-";
1 "1";"kannoe iskusstvo, Vaw harakter";
1 "1";"kak, prejde vsego, pokorn$&,";
1 "1";"kajdoe iz kotor$h nahoditsq";
1 "1";"k mnogoaspektnomu podhodu voz-";
1 "1";"jiznx. V$ ne umeete i ne hoti-";
1 "1";"jete legko prisposobitxsq k";
1 "1";"jay#ih. Vawi jiznenn$e plan$";
1 "1";"imeni i familii, a takje skla-";
1 "1";"idete svoe& dorogo& sistemati-";
1 "1";"i voob#e vse prekrasnoe i iz$-";
1 "1";"i vera v sobstvenn$e sil$ op-";
1 "1";"i v ob#enii s lydxmi;"
1 "1";"i skuku, Vas privlekayt pute-";
1 "1";"i podvijnostx. V$ poro& stre-";
1 "1";"i otve[atx bez obinqkov. Vam";
1 "1";"i otli[aetesx osobo& predras-";
1 "1";"i lybovx - vot cennosti, koto-";
1 "1";"i neuda[a. Nenavidite inerciy";
1 "1";"hotx raz v nedely, kontroliruq";
1 "1";"haraktera, kotor$e tradicionno";
1 "1";"glazah okrujay#ih V$ [asto";
1 "1";"givaem$& i ottalkivaem$& vnew-";
1 "1";"gi& i serxezn$& vzglqd na";
1 "1";"geneti[eskih predkov - ih pe-";
1 "1";"funkci& - su#ee nakazanie dlq";
1 "1";"ego ispolxzovatx, ne o[enx za-";
1 "1";"dvijenii, o[enx lybite pute-";
1 "1";"drugim, poro& prosto podavlqq";
1 "1";"doma sladosti ili V$ s%edaete";
1 "1";"doedaet serostx i odnoobrazie,";
1 "1";"dlq togo, [tob$ v$qsnitx sob-";
1 "1";"dlq dostijeniq postavlenn$h";
1 "1";"ditx za svoim pitaniem i regu-";
1 "1";"de&. \ti bezuslovno cenn$e ka-";
1 "1";"de& - ili znaniqmi ili [em-to";
1 "1";"darq ]tomu obstoqtelxstvu V$";
1 "1";"dani& na drugih.Vam b$stro na-";
1 "1";"d$vaywiesq iz dat$ rojdeniq."
1 "1";"cii, kotoruy V$ derjite mejdu";
1 "1";"celqh"" mojet v$zvatx perena-";
1 "1";"cele& Vam [asto neobhodima in-";
1 "1";"botqsx o zavtrawnem dne. Jivq";
1 "1";"bote u Vas [asto voznikaet je-";
1 "1";"bolxwo& lybvi lybovn$e prikly-";
1 "1";"blizkih,dostato[no legko adap-";
1 "1";"blagopolu[ie semxe i domu. V$";
1 "1";"bit ostavatxsq v teni. V jizni";
1 "1";"bina [uvstv, i vernostx ne qv-";
1 "1";"berete na sebq mnogo obqzan-";
1 "1";"b$. Budu[i [elovekom s silxn$m";
1 "1";"astrologie&, qvlqetsq nomero-";
1 "1";"\KSPRESSIVNOE ~ISLO";
1 "1";"[isla, zakodirovann$e v Vawem";
1 "1";"[isla pregrad i ograni[eni&.";
1 "1";"[i,drujba i putewestviq igrayt";
1 "1";"[estva, skoree naoborot - V$";
1 "1";"[estva sosedstvuyt s nebolxwim";
1 "1";"[estv i [ert,unasledovann$h ot";
1 "1";"[eski i metodi[no. V$ skoree";
1 "1";"[ert$,kotor$e [elovek skr$vaet";
1 "1";"[ennostx na zna[im$h ""velikih";
1 "1";"[eniq kak bolee volnuy#ie. V";
1 "1";"[em-libo svoih blizkih i pros-";
1 "1";"Vzvewivaetesx li V$ regulqrno,";
1 "1";"Vsegda li u Vas doma estx die-";
1 "1";"Vawu delikatnostx;"
1 "1";"Vawem serdce imeetsq pustota,";
1 "1";"Vawe& jizni imeyt takie ]moci-";
1 "1";"Vawe nastroenie i reakcii;"
1 "1";"Vaw harakter mojno opisatx";
1 "1";"Vas."
1 "1";"Vas v ka[estve ideala. V sfere";
1 "1";"Vas privlekayt takie zanqtiq,";
1 "1";"Vas lyde&;"
1 "1";"Vam na&ti svoe mesto sredi ly-";
1 "1";"Vam izmenitx ili raznoobrazitx";
1 "1";"V$ sposobn$ k velikoduwiy i";
1 "1";"V$ qvlqetesx odnovremenno alx-";
1 "1";"V$ ob%edinqetesx, kak provilo,";
1 "1";"V$ ne golodn$,no kto-to ugova-";
1 "1";"V$ - sovsem ne lybitelx odino-";
1 "1";"V sostoqnii li V$ nedoestx,os-";
1 "1";"Umeete rabotatx i nablydatx.";
1 "1";"Tri znamenit$h [isla pozvolqyt";
1 "1";"TEST| DLQ VAS ";:
1 "1";"Smojete li V$ uderjatxsq,kogda";
1 "1";"Rabota? Ona Vam nravitsq. Vawi";
1 "1";"NIKOGDA ne smojite izbavitxsq";
1 "1";"NASLEDUEMOE ~ISLO";
1 "1";"Maksim Ivanov privetstvuet Vas"
1 "1";"INTIMNOE ~ISLO";
1 "1";"Dumaete li V$ vremq ot vremeni";
1 "1";"(esli V$ - zamujnqq jen#ina,to";
1 "1";"#itelxn$& jizneradostn$&, pri-";
1 "1";"#ee ravnovesie, ]mocionalxnoe";
1 "1";" Vam nujno polnostxy izmenitx";
1 "1";" Na[alo testa - lybaq klaviwa":
1 "1";" Esli V$ e#e lu[we budete sle-";
1 "1";" Baziruqsx na solidno&, produ-";
1 "1";" ":
1 "1"; "
1 "0","0","RESET",D
1 "--skip--";:
1 "----------------------------------------------------------------------------------------------------------------------------------------":
1 ","W-BOEHH
1 ","T-TPEXMEPH
1 ","T-CTPATE
1 ","G","D","E"
1 "(det S)=";w
1 "'''"Whuru qny pqrt of SUPERCODE ys usud,q promynunt srudyt must bu gyvun to thys fqst, qnd to yts quthors, F.Q.Vqshhq BSs & V.B. Rumsuy.":
1 "''"Tuvynu0Z1,Z2:-"'"For0
1 "''"Numbur of Routinus:
1 "''"8- KATA
1 "''"(1)To movu a Relosatable Routinuso thqt yt stqrts qt qddruss Z,first
1 "'"Placu: 56640-65535(RAMTOP=56639)Hulp Prog:
1 "#","h","|","'","w","_","\","y","q"
1 " studioC55619
1 " WRAP-AROUND:
1 " To storu thys routynu on tqpu, pruss
1 " To runumbur wythout
1 " To runumbur lynus stqrtyng wyth S usyng ynturvql I,
1 " To make a
1 " To help with
1 " To delete all lines from a to b
1 " Thys routynu wqyts tyll q kuy (whosu CODE wyll bu put yn L)ys prussud.";
1 " Thys routynu undous thu uffust of0#98,0to0qllow0lynus0of0q00000CONFUSEd0progrqm to bu EDITud/ qlturud."
1 " Thys routynu ruplqsus numburs yn thu progrqm by VQL
1 " Thys routynu murgus q
1 " Thu routynu shqngus qll squqrus wyth q gyvun
1 " This routine zeroes all numeric variables/arrays,sets all
1 " This routine swops all
1 " This routine simulates a power- off: ie, it not only does
1 " This routine shortens+speeds up programs by deleting all
1 " This routine replays what #77 recorded. It is probably best to usepyour sqssuttu-rusordur (MIC soskut) to qmplyfy thu sound."
1 " This routine replaces each occ- urrence of a specified
1 " This routine prints out a full analysis of memory contents, starting at the address whose less & more significant bytes (see #101)have been
1 " This routine places a random # pair in the System Variable SEED ( PEEK 23670 & 23671 )." ;
1 " This routine operates on
1 " This routine loads information stored in memory into an auto- created
1 " This routine lists each
1 " This routine lists all"'" (1) Numeric variables"'" (2)
1 " This routine inserts a given number into a block of memory.
1 " This routine expands programs so that there is exactly one statement per line (except in IF..THEN lines).In reply to the prompt, enter the no: of the line you want expanded, or just ENTER if you want the entire program expanded. You must use #60 after calling this routine."
1 " This routine does a
1 " This routine deletes all hidden colour
1 " This routine decodes tapeheader information & prints out a full analysis (name, address, type, length & auto-start details."
1 " This routine allows hex input into RAM.POKE the less/more sig (see #101)bytes of the first address to be changed into the system-variable DEFADD(23563/4)
1 " This routine allows a block of lines to be relocated within a BASIC program.In order to shift lines 4200 till 6745 so they appear after2200 in the listing respond 4200,6745 & 2200 to the auto-prompts.The new lines will all have number 0.Now call #60 to renumber & #57 to delete the old lines. Fully errorproofed."
1 " This routine
1 " The routine speeds up+contracts programs into the minimum no:of
1 " The routine
1 " The free space F from the last Variable to RAMTOP is printed. Use
1 " THIS IS AN EXAMPLE OF THE SCIFI
1 " Routynus 94 to 97 shqngu thu sqsu (uppur/lowur)of stryngs or of thu untyru lystyng ( uxsupt stryngs),qs spusyfyud.Notu thqt qn uffustyvu wqy of swytshyng sqsu from wythyn progrqms ys to POKE 23658,0 (LO) or 8(HI)."
1 " Press any other key to restart."
1 " In some cases the command
1 " In order to scroll a table of data > 22 lines long without stopping, use the command
1 " For trqnsfur of
1 " Follow the prompts to expand a REM statement (to accommodate code) anywhere in the program, by up to 9999 bytes"
1 " Drqw qny slosud fyguru on thu ssruun, thun PLOT q poynt lyyng INSIDE yt. POKE 59293 wyth thu Qttrybutu vqluu to bu fyllud,& thun sqll thys routynu."
1 " Draw multipointed-stars & rings by first plotting a point near the middle of the screen & then using DRAW X,Y,N where X & Y have magnitudes from 10 to 60 & N lies between 1000 & 9999. You should experiment."
1 " Corrupts thu lystyng wythout qffustyng progrqm uxusutyon: qttumptyng to EDIT/qltur lynus sould bu fqtql (thus usuful for progrqm protustyon, qs qru #68/ #80)."
1 " Call this routine at the start of your program, say by having as
1 " By POKEing 23606 & 23607 with different numbers, a corrupted character set is obtained. To normalise, POKE 23606,0 : POKE 23607,60. Protect your program with this, temporarily normal- ising before each PRINTing."
1 " BASIC programs with m.code in
1 " A set of accented
1 " 5 wybor naibolx{ih ~isel"
1 " 4 delenie"
1 " 3 umnovenie"
1 " 2 wy~itanie"
1 " 1 slovenie"
1 " - ne MAGIC-fajl";:
1 " {v} > verify picture on tape"
1 " {s} > save picture to tape"
1 " {p} > edit picture"
1 " {l} > load picture from tape"
1 " {e} > exit program"
1 " {V} > verify UDG area on tape"
1 " {S} > save UDG area to tape"
1 " {L} > load UDG area from tape"
1 " The routines run hundreds of times faster than BASIC,& can becustomised easily. Do enjoy yoursuperb Z80 MachineCode Library!"
1 " Keep a written record of the name, address & length of this routine, as well as of all the relevant POKEs. For details on relocation, refer to the manual."
1 " If you have noted important details ( address, length, any"
1 " 5+3=8":
1 " push any key for main menu":
1 " Press any key to continue":
1 " B KAPTOTEKE ";n;"
1 " EXTEND MODE-B
1 " Philip Mitchell"
1 " MELBOURNE DRAW"
1 " S for SUBTRACTING"
1 " by"
1 !o C
1 !!$$$"""""!"$$!!
1 zapis$ Be^sik-programm<; imq fa^la v oblasti sis- temn<x peremenn<x;
1 witkow P$W-
1 witka prowoda P$W-
1 w storonu i powtoritx nastrojku R
1 vqluus qru not shqngud.Rufur to #25-27 for
1 versii 5.03 Diskovaq operacionnaq sistema - @to sposob xraneniq programmi fa^lov s dann<mi v domawnix i professional$n<x komp$utern<xsistemax. Po sravneniu s tradicionn<mi "lentohn<mi" sistemami,takimi, kak magnitofon ili mikrodra^v, diskov<e sistem< imeutmnojestvo preimy&estv. Oni bolee nadejn<, b<str< i imi gorazdoleghe pol$zovat$sq. V poslednee vremq sredi poklonnikov komp$utera
1 v adres 23773; pri@tom registr A doljen soderjat$ 0. Stryktyra zgolovka fa^la takova: 8 ba^t zanimaet imq; 1 ba^tzanimaet tip (
1 to translate ?
1 to q ZX-Mysrodryvu, pruss
1 to """" & all dimensioned
1 sy&estvyut speci-al$n<e vozmojnosti, i na nekotor<x iz nix m< ostanovimsq. V<xodn<e tohki
1 sy&estvyet speci-al$naq tohka vxoda s adresom 15663: za komando^
1 swops thu surrunt ssruun & thu STOREd onu Q ssruun hqs 6912 bytus (24*32* 8, + 24*32 Qttrybutus) & should bu storud qbovu RQMTOP (CLEQRud downwqrds to mqku room).To hqvu q ssruun from X to X+6911, usu
1 swops the current screen & the STOREd one A screen has 6912 bytes (24*32* 8, + 24*32 Attributes) & should be stored above RAMTOP (CLEARed downwards to make room).To have a screen from X-6911 to X use POKE ";A+1
1 svoditsq k sledyu&emy: LEGKI` I B>STR>` DOSTYP - zagryzka programm ili dann<x prois-xodit gorazdo b<stree, hem s magnitofona; WIROKI` V>BOR DISKOVODOV - 5.25", 3.5" ili 3", 40 ili 80 do-rojek, odno- ili dvystoronnie diskovod<. Drygimi slovami, V< mo-jete ispol$zovat$ lubo^ iz imeu&ixsq na r<nke diskovodov; EMKOST% - do 4 diskovodov odnovremenno na linii. Dann<e zapi-s<vautsq s dvo^no^ plotnost$u, hto obespehivaet maksimal$nyu em-kost$: do 2,5 millionov znakov; GIBKOST% - interfe^s nezavisim, tak hto V< mojete ispol$zo-vat$ diskovod< s drygimi komp$uterami; SOVMESTIMOST% - interfe^s mojno primenqt$ s komp$uterami
1 sqvus q ssruun,
1 sohranenie
1 sodervit
1 soderjitsq v PPZY i ispol$zyet tol$ko 12 ba^t v OZY. Diski i diskovod< Interfe^s mojet ispol$zovat$ 5.25", 3.5" i 3" diskovod<. V<,nesomnenno, sl<wali takie nazvaniq, kak floppi-disk, disketa,mini-disk ili mikro-disk. M< bydem naz<vat$ ix prosto diskami. V nastoq&ee vremq naibolee popylqrn< 5.25" diski. Vse je ime-etsq tendenciq k bolee malen$kim 3" diskam, xotq oni doroje imenee nadejn<.
1 signal polustro1noj 1astoty s wyhoda triggera DD
1 sektorov; registr A=255; 3)
1 sektorov, perv<^ iz kotor<x imeet no- mer
1 saves a screen,
1 s otmehenn<mi adresa-mi sootvetstvyu&ix podprogramm. Luboznatel$n<m i p<tliv<m hita-telqm mojno rekomendovat$ v kahestve yprajneniq polyhtit$ tako^tekst i razobrat$sq v nem samostoqtel$no. Neobxodim<e dlq @togoisxodn<e kod< mojno zapisat$ (kak hitatel$ yje, veroqtno, doga-dalsq) v vide fa^la tipa
1 rusqlls yt.
1 rezistorom
1 redaktor tekstov
1 recalls it.
1 rabotaet s hislov<mi i znakov<mimassivami, seri^n<mi (posledovatel$n<mi) fa^lami i fa^lami s is-tinno proizvol$n<m dostypom;
1 prosmotr
1 prednaznahe-na dlq xraneniq sistemno^ diskovo^ informacii. Skazannoe v<we daet nam vozmojnost$ podshitat$ kolihestvosektorov i vmestimost$ otformatirovannogo diska (
1 pozvolqet razbit$ dorojky na 16 sektorov po 256 ba^t vkajdom. Takoe bol$woe kolihestvo sektorov malo^ velihin< imeetopredelennoe preimy&estvo. Vo-perv<x, esli nyjno soxranit$ liw$nekotor<e dann<e, to bydet ispol$zovano naznahitel$noe prostran-stvo diska, hto v komehnom itoge pozvolit zapisat$ na disk bol$-wee hislo fa^lov. Vo-vtor<x, pri ispol$zovanii fa^lov proizvol$-nogo dostypa poqvlqetsq vozmojnost$ sdelat$ programmy bolee gib-ko^ i yvelihit$ skorost$ operaci^. Nyjno otmetit$, hto dorojka 0 (vnewnqq) v
1 poda6t cwetoraznostnyesignaly sootwetstwenno krasnogo i sinego cwetow,awideosignal-na whod "sinhro" kodera.Rezistory R
1 nujno postavit_ naibol_hi% kod (23607) s kotorogo est_ alfavit
1 naibolee vajno^ qvlq-etsq tohka vxoda s adresom 15635 (
1 na dorojke
1 na disk (dorojka
1 nOMER :
1 movno zamenitx beskarkasnoj katu2kojiz
1 mm. NASTROJKA KODERA Nastrojku na1ina6t s sowme3eniq 1astot nesu3ej W! generatora naDD
1 messages."
1 messages"
1 matricy na whod summatora na inwertore DD
1 machinecode routines which you can call(using RANDOMIZE/PRINT USR) bothdirectly & from within your own"
1 kod< probela (32 v
1 ko whodu summiru63ego usilitelq DD
1 kl61ej DD
1 katalog
1 imq diska iz 8 simvolov 252 - : 253 - 0 254 - 0 255 - 0 Krome togo, sledyet zametit$, hto porqdkov<^ nomer zagolovkana nylevo^ dorojke imeet sledyu&ee svo^stvo: starwi^ polyba^tsootvetstvyet nomery sektora, v kotorom zapisan zagolovok, amladwi^ - nomery zagolovka v sektore. #to inogda polezno yhit<-vat$ pri rabote s diskom. V zakluhenie otmehy, hto se^has, blagodarq ispol$zovaniu iz-lojenn<x v stat$e principov, poqvlqetsq vse bol$we programm dlq
1 iSK(a)/zAM(y)/(j)?
1 i so vsemi "samopal$n<mi"; AVTOSTART - zapyskaet Be^sik-programmy
1 i ego shemy uprawleniq natriggere DD
1 i ego shemy uprawleniq na triggere DD
1 i 4l-tah R
1 i koleb.konture L
1 i kakogo-libo kanala telewizora.!astota W! generatoraizmenqetsq kondensatorom S
1 dvystoronni^): 40 dorojek
1 does not close all streams.If this occurs,use this routine."
1 diametrom 0.
1 da, STR.
1 c.s.+2 change drive
1 c.s.+1 escape
1 blagodarq e^ V< mojete mgno-venno perepis<vat$ programm<, zagryjenn<e v komp$uter s magnito-fona (ili diska), na diskety; SISTEMN>` PEREKLUHATEL% - daet vozmojnost$ otkluhat$ inter-fe^s ili ispol$zyetsq dlq sbrosa; SINTAKSIS - sam<^ prosto^, s primeneniem kluhev<x slov kom-p$utera
1 \ K S P R E S S I V N O E
1 [islo ]to "+
1 V.RUMSEY
1 ULA ... 6
1 U-read Up file
1 The town of Gatchina
1 Tape loader @-file by V.D.G.
1 TR-DOS =";j:
1 TESTS FOR YOU":
1 T-exit in TRDOS
1 Stanislav Karpiesiuk, 1988"
1 Sort out choice
1 Size of selected files:
1 Select file
1 STOP THE TAPE
1 STOP KEY(SPECTRUM+) ... 3
1 SOUND ... 5
1 SOME FILES).
1 SEKUND"'''
1 SECOND PASS
1 SAVE""Name""CODE ";A;",";B
1 S t a r t
1 S @togo adresa v ko-nehnom itoge m< perexodim k podprogramme 10300, kotoraq v zavi-simosti ot koda, soderja&egosq v registre
1 ROUTINE #0650HQS PREVENTED YOU00FROM0RREQKING INTO0THIS PROGRQM
1 ROUTINE # 65 HAS PREVENTED YOU FROM BREAKING INTO THIS PROGRAM
1 RAM/ROM ... 7
1 R e s e t
1 Polbrit International";
1 PROGRAM WILL BE RESTARTED."
1 PRESS ANY KEY TO TURN THE PAGE
1 POKE 63951,Duration. To save it use SAVE 'ZAP'CODE 63950,26."
1 POKE 23607, 223
1 PODOJDITE SEKUNDO~KU!
1 PENCRAFT SOFTWARE
1 Odnako sledyet predypredit$, hto interpretator
1 O.Przesmycki, 26.9.1984
1 O.K. Ha
1 Not startable
1 New Character
1 NO ERRORS
1 Minuto#ku
1 KEYBOARD SPECTRUM+ ... 2
1 KEYBOARD SPECTRUM 16/48K ... 1
1 K=K/[IFT S=S/[IFT E=K/[+S/[ e=E+S/[IFT
1 I,O,P,L-moving keys
1 HOMEP?";N2
1 Font Editor
1 Fade away
1 FIRST PASS
1 F.VACHHA
1 F-Filter files
1 ERR+1,0'.Any BREAK/ error will now cause a crash. 6)
1 E-TRDOS Emulator
1 Disk-Tape-@ Copy by V.D.G.
1 CUTOFF 2.05
1 COLOUR/FLASH ... 4
1 CASSETTE ... 8
1 B CTPOKE"'B:
1 ALL TESTS SPECTRUM+ .. 0
1 ALL TESTS SPECTRUM 16/48K .. 9
1 ? (Y/N)
1 = 38 * 16 = 624 sektora * 256 = 156 Kba^t 40 dorojek
1 = 159 * 16 = 2544 sektora * 256 = 636 Kba^t #to oznahaet, hto na 1 dorojke pome&aetsq 4 Kba^ta ili 4 sek-tora na 1 Kba^t. Takim obrazom, razdeliv kolihestvo svobodn<xsektorov na 4, mojno yznat$, skol$ko kiloba^t svobodnogo pros-transtva ostalos$ na diske. Sposob rabot< so standartn<mi komandami
1 59580 ,I: POKE 59582/3,2 bytu uq:of S Eqsh
1 23692,x where x is the no: of lines to be scrolled. To scroll 'forever' use
1 1993 VLADIMIR VASILEVSKIJ.MiPh&T HACKER CLUB.
1 1992/93 ";:
1 1990, MOA&PV'turbo V2.5
1 1990 V.V.Soft
1 1990 MOA Service
1 1986 ""MUSIC BOX"""
1 1983 Martin Lewis
1 1.The 2 byte equivalents(see # 101)of the starting address of the memory & the no: of bytes must be stored in 63209/10 and 63206/07 respectively."
1 -rewind & replay the cassette from the start.When you come to this page,press
1 - stiraetsq fa^l, porqdkov<^ nomer kotorogo na diske raven A. Krome togo, pri v<zove podprogramm< s adresom 10469 (napri-mer, kosvenno herez stek i tohky vxoda 15663) proisxodit pereme-&enie zagolovka fa^la (16 ba^t) s adresa
1 - remove delete fil
1 - PRESS ANY KEY TO GO ON
1 ,kotoryj pri neobhodimosti sluvit dlq wydeleniqsinhrosmesi iz kompleksnogo wideosignala podannogo na whod"sinhro" kodera. Dlq soglasowaniq kodera s antennym whodom telewizoraispolxzuetsq transformator TR
1 ,kotoryj pri neobhodimosti movet bytx zamenen emkostnym ili rezistiwnym delitelemnaprqveniq.Induktiwnostx L
1 + add delete fil
1 (zaglavn<mi bykvami oboznaheno soderjimoesootvetstvyu&ix registrov): 1)
1 (naprimer, zagolovok fa^la na diske). Nije pri-vodqtsq kratkie opisaniq procedyr, v<z<vaem<x v zavisimosti otsoderjimogo registra
1 (kod 201). #to pozvolqet osy&estvlqt$perexod< po lubomy trebyemomy adresy, predvaritel$no pome&ennomyna verwiny steka. #tot sposob xorow v tom slyhae, kogda est$dizassemblirovann<^ tekst programm<
1 (Tqpu)."'"Notu qddruss,lungth,sustomysyng POKEs(yf qny)uts for futuru0ruf:":
1 (Rupuqt)."'" For q dumo, pruss
1 (Quyt). Usu
1 (Numbur).":
1 (Dumo)."'" To ruturn to thu Indux, pruss
1 ( Losqtyon Chqngu ). For BQSIC, pruss
1 #ta sistema korenn<m obrazom me-nqet vozmojnosti starogo dobrogo
1 ";(N);" ";B$(N):
1 ";(N)'C$(N):
1 !#$%&'()*+-013456789:=@ABCDGJKLM
1 wyhod kotorogo soedinen so whodom amplitudnogo modulqtorawysoko1astotnoj nesu3ej na tranzistore T
1 w konce kavdogokadrowogo impulxsa podkl61aet na wremq opredelqemoe cepo1kojR
1 ustanowitx 1astotu podnesu3ejgeneratora DD
1 the cursor is pointing to.";
1 storud yn RQM (
1 ster"STR"? D
1 sposob(imitaciq stroki Be^sika v kodax) gromozdok i neydoben. Gorazdolyhwe obra&at$sq neposredstvenno k operacionno^ sisteme, naxo-dq&e^sq v "podstavnom" PZY. Dlq @togo v
1 sledyetedinstvennaq komanda
1 select/unselect file":
1 s adresa
1 priveden vprilagaemo^ k ne^ firmenno^ dokymentacii. Pri programmirovaniina Be^sike pol$zovat$sq imi legko i ydobno. Odnako, v<polnqq bo-lee slojnyu raboty na komp$utere
1 pri 4tomiskl61a6tsq.
1 odnosto-ronni^,
1 no:,thu nuxt vqlyd
1 nazvanie versii
1 na-pisan kra^ne slojno i nevrazymitel$no. Htob< obleghit$ raswif-rovky kodov, otmetim yhastki, kotor<e zanimaut tekst< i tablic<,a takje nekotor<e podprogramm< (adresa dan< v desqtihnom vide): 00102 - 00105 perexod na adres 10838 (obslyjivanie klaviwi
1 mm. ili montavnym mnogovilxnymprowodom (katu2ka L
1 mkF neposredstwenno powywodam pitaniq.Pri priwedennyh nominalah optimalxnoj polu1aetsqrabota na
1 kanal.!astota okolo
1 i rezistiwnojmatricy R
1 i interwala cwetowojsinhronizacii na triggere DD
1 dopoqwleniq cwetnogo izobraveniq na4krane,a takve dostiveniq balansa "belogo".Esli cwetnoeizobravenie ne poqwlqetsq ili neustoj1iwo,to neobhodimo smestitxnastrojku nesu3ej S
1 diametrom 0.
1 but also
1 avtomatiheskiposle vkluheniq pitaniq ili sbrosa (v
1 [ENTER]-Yes/No
1 [ENTER]-No/Yes
1 X,Y;""Optional Message"";Variable The method works with
1 Size of a
1 O.K.-press any key to repeat
1 MGc.W rabo1em revime dewiaciq1astoty pri manipulqcii cwetoraznostnymi signalami levit wpredelah +/-
1 Leningrad
1 Disk-Tape-@ Copy by A.R.R.
1 Catalog savid
1 A. Pratt 1984
1 5.03firm<
1 ,i esli katu2ka wyponenaprowodom,to rastqveniem witkow.Katu2ka L
1 (adaptirovann<^ variant naz<vaetsq
1 (R)ELOKACJA
1 ""FIRE"" "
1 mETKA:kODY UPRAWLENIQ
1 key pressed,play the cassette. This tfrs parts 1&2."'"(3)After the reset enter
1 arrays to
1 V.RUMSEY
1 Prepared by Dr. Ian Logan
1 LOADED
1 HEX ADRES : *KONIEC SZUKANIA*
1 Find name
1 BASIC programs."'" (b)To
1 (S)ZUKAJ BAJTU
1 unselect all files":
1 show first 66 files":
1 show files from 67 to 128":
1 select all files":
1 go to main menu":
1 formiru6tsq qrkostnyj i dwa cwetoraznostnyhsignala.Qrkostnyj postupaet s werhnego po sheme uzla ob7edineniqrezistorow R
1 cursor up":
1 cursor right":
1 cursor left":
1 cursor down":
1 FLOATING POINT COMPILER
1 Dumping
1 5.IF YOU PRESS '
1 4.IF YOU TYPE WORD '
1 3.CHOSE NUMBER OF FILES (YOU CAN ENTER NUMBER OF
1 2.PRESS 'ENTER' - PROGRAM WILL GIVES YOU CATALOGUE OF THIS DISK (MAGIC FILES).
1 1.INSERT DISK WITH MAGIC
1 (D)ISASEMBLER
1 Functions
1 Disk name
1 BIG GEN
1 (L)PRINT DISASEMBLER
1 ""FIRE""
1 ""FIRE""
1 M E N U
1 Commands
1 Catalog
1 -1":
1 (B)ASIC
1 ZX SPECTRUM
1 -5":
1 ";
1 Ha
1 G O S P O D A !
1 ";
1 shit<vaetsq
1 ":
1 s St L
1 Malen$kie sekret<
1 04445 - 04519 podprogramma pehati celogo lista (registr
1 ";
1 V.V.Commander
1 12797 - 15360 svobodn<e qhe^ki pamqti 15610 - 15664 tohki vxoda v
1 OPISANIE KODERA SEKAM Koder sostoit iz formirowatelq qrkostnogo i cwetoraznostnogo signalow na inwertorah mikroshemy DD
1 12275 - 12337 tablica 12541 - 12786 tekst - kluhev<e slova
1 10838 - 12038 obslyjivanie klaviwi
1 10380 - 10455 tablica adresov podprogramm, adresyem<x regis- trom
1 02048 - 04095 svobodn<e qhe^ki pamqti 04099 - 04119 tekst "Podsoedinen interfe^s 1" 04261 - 04432 tekst sistemno^ informacii dlq
1 10673 - 10804 tekst soob&eni^
1 Dlq obra&eniq k operacionno^ sisteme
1 Pri neposredstvennom obra&enii k
1
1
1
1
1
1
1
1
1